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■ den ideelle PC-løsning 

SVI-256SF SVI-640FF 

SVI-640FH X’PRESS 16 

Priser excl. moms - incl. MONOCHROM MONITOR 


SVI 

SPECTRAVIDEO 

Henvendelse: 

OVERGÅRD ANDERSEN A/S 
Dampfaargevej 32 
2100 København 0 
Telefon 0142 30 00 


INCL. DOS 2.11 
PA DANSK 
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Oplysning & Leder. 
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Tips -for 328 fra Magnus Pihi. 
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For begyndere 

328 Gra-fiktegn på printeren 
Svenska sidan 
Disk af Johnny B. 

Lerst i< fast ved Johnny B. 

8 Sprites 16 farver SVI 738 

Sort ik hvid 

Grafik for MSX 

Køb/salg I« nye ramed 1 emmer 

SVI BIB 

KALAHA til SVI 318-328 
Løbetekst til MSX II 
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Hvilke andre sprog til SVI 328 
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Foreningen hedder: MSX BRUGERKLUBBEN 
Medlemsskab koster 165 Kr. (årligt) 
Salgsannoncer er for medlemmer gratis 
Annoncerer : 1/2=300 kr. 1/1=500 kr. 

Medlemskab opnås ved henvendelse til 
foreningens kasserer, eller ved ind¬ 
betaling af kontingent på postgironr. 
8 2 0 6 0 8 2 

HUSK at opgive navn, adresse, postnr. 
°8 t>y» samt tlf.nr. og maskintype. 

Bladet hedder : SYNTAX 
Oplag : 800 eks. 

Udkommer : 10 gange årligt (ikke jan 
og jul i). 

Tryk : Foto offset. 

Lessalgspris : 17,00 Kr. 

Udkommer n»ste gang : September 


Formand : 


TIf. nr, 


====-=—====== Kasserer 


Artikler, annoncer eller programmer 
der ønskes optaget i bladet, sendes 
til Kim Andersen eller Preben Lund 
Bånd og disk sendes retur. 


LEDER 

Her i sommerferien har vi fået to 
interessante breve. 

Brev 1 var fra Holland hvor man 
har taget initiativet til et mere 
effektivt udvekslings arbejde, 

Det . der skal udveksles er public 
domaine programmer og artikler 
mellem klubber, programmerne skal 
oversættes til engelsk hvilket vel 
nok skulle være muligt. Værre er 
det straks med artikler, for der 
tales ikke om at de skal oversættes 
men mon ikke det bliver stærkt 
nødvendigt ? 

Sidst i brevet antydes der at der 
kan blive mulighed for at få dis- 
tributeret rigtig gode programmer i 
hol land. 

Andet brev var fra 
M.S.X CLUB OF SOUTH AUSTRALIA 
(Mon Crocodile Dundee er medlem?) 

De kunne godt tænke sig et sammen¬ 
arbejde. 


TI f. nr. 


Kim Andersen 
Fundervej 32 
2610 Rødovre 
02 94 26 74 

Preben Lund 
Tømmerstrædet 19 
2620 Albertslund 
02 64 76 26 


Redaktionsgruppen består af formand, 
kasser og følgende : 


Richard Foersom 
Henrik Larsen 
Peter Knudsen 
Erik Steen 
Christian Noval 
Søren Mortensen 
Jannik Storm 
Per Under 1 i en 
Henrik Gi 1 vad 
Søren Nielsen 
Jonas Tromborg 
FYN 

Jens Møl 1 er 
JYLLAND 
Johnny B. 

SVERIGE 
Jan Bojstrup 
Joakim Tornhill 
Magnus Balldin 
NORGE 

Kjell Johansen 


Tlf.nr. 01 39 39 94 
01 74 73 99 
02 17 76 23 
02 96 09 37 
02 62 02 01 
01 69 77 40 
01 65 74 59 
02 64 09 66 
03 14 36 57 
02 52 85 93 
02 65 28 98 

09 94 22 75 

06 82 66 98 

00946. 40-21 36 41 
. 40-91 96 58 
. 40-15 01 98 

00947. 02-28 24 45 


Copyright. MSX BRUGERKLUBBEN 


OBS. SIDSTE FRIST FOR STOF TIL NÆSTE 
NUMMER ER : 21.08.1988 


H.G. 
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*“*"*•-*■ M8X 3 VIDEOTRIKS FOR SVI 73© #■■«••*”* 


USSf 2 VIOEOTRIKS 
FØR SVI 738 

Jeg vil nu vise jer hvordan man på 
SVI738 kan lave en MSX2 screen 4 
uden at skulle forøge mængden af 
VRAM. 

MSX2 screen 4 svarer i opløsning 
til Screen 2, forskellen ligger i 
at man har forbedrede muligheder 
med hensyn til SPRITE's. 

De fleste af jer har jo nok alle¬ 
rede stødt på problemer med sprites 
når der kommer mere end 4 sprites 
på samme linie. Dette er faktisk en 
stor begrænsning af vores mulighe¬ 
der med sprites, derfor har man 
forbedret dette på MSX2 så man kan 
have 8 sprites per linie. 
Begrænsning nummer 2 med hensyn til 
sprites er FARVERNE, normalt gælder 
Hver Sprite 1 Farve. Hvis man vil 
have flere farver på sin mrs.PACMAN 
vil mere end 1 forfølgende Ghost 
give spritefejl. Surt! 

Selv med 8 Sprites/1inie når man 
hurtigt op på spritefejl hvis man 
gerne vil lave nogen flotte 
farveladefigurer. 

Men, med Screen 4 kan man OGSÅ 
have flere farver per sprite, der 
er nemlig muligheder for 1 farve 
per linie og dette er jo en positiv 
forbedring. 

Når nu vi har 16 farver pr sprite 
må disse informationer jo gemmes et 
eller andet sted, man har derfor 
defineret en SPRCOL tabel der er 32 
x 16 Bytes lang (&h200) og denne 
ligger ALTID 512 bytes under GRPATR 
base adressen (BASE(13)) 

Desvære er der med den normale 
konfiguration af SCREEN 2 ikke 
plads på dette sted for her ligger 
BASE(10) altså GRPNAM der er skærm¬ 
opbygningen. Hvis du kigger tilbage 
på sidste blad side 11 kan du se 
længderne af de forskellige BASE og 
hvor de kan ligge. Jeg har puslet 
lidt med det og her er løsningen på 
en simpel måde. 

Vi flytter bare BASE(13) op så den 


starter på adresse lEOOh for så har 
vi de 200h Bytes vi skal bruge. 

Hvis man i sin autoexec includerer 
en BASE(13)=&hlE00 har man flyttet 
GRPATR frem så der er plads neden¬ 
under til SPRCOL. 

Følgende simple linje skifter mode. 

VDP(0)=4:vdp(5)=63 

Hvis man vil tilbage igen: 

VDP(0)=2:Vdp(5)=60 

Det er bit 2 i VDP register 0 der 
sørger for selve omskiftningen 
mellem de to Sprite Modes. 

Vdp(5)'s 2 laveste bit stiller 
hvordan farverne skal fordeles. 


Vi forestiller os at vi opstiller 
alle 32 sprites på 4 linier a 8 
sprites. 

A) 01234567 

B) 8 9 10 11 12 13 14 15 

C) 16 17 18 19 20 21 22 23 

D) 24 25 26 27 28 29 30 31 

Biti BitO 


0 0 D=A,C=A,B=A 

0 1 C=A,D=B 

1 0 B=A,D=C 

1 1 Alle kan stilles. 


Det er af denne grund at vi stiller 
de 2 laveste bit til '1' 


Når du bruger SPRITE MODE 2 i dine 
egne programmer skal du selv stille 
farverne med VPOKE da PUT SPRITE 
Ikke klarer dette for dig. 

Da vi kun har 16 farver til rådig¬ 
hed er der 4 bits tilovers i de 16 
farve-bytes. Af disse 4 er de 3 
benyttet på følgende måde: 

Bit 7 


Early Clock. 

Er denne sat flyttes linien i 
spriten 32 punkter mod venstre, på 
denne måde kan man få spriten til 
at forsvinde langsomt ud. 








M3X 2 


* 3 * MUSIK med JOHNNY 1 


■JHMf 


For at spriten skal 'glide 1 ud 
eller ind stiller man denne bit og 
skynder sig at lægge 32 til X- 
koordinaten. Når spriten så er 
kommet helt ind eller ud kan man 
slette bitten og trække 32 fra igen 

Bit 6 


3 X 
HED 


husik 

JOHNNY 



Priority Enable. 0=no l=Yes 
H\/is denne bit sættes vil denne 
linie i sprites ikke vises på skær¬ 
men med mindre en sprite med lavere 
nummer også er i denne horisontale 
linie.(Fik i den ?) 

Udover dette vil der ved overlap¬ 
ning af to eller flere sprites ske 
en OR operation mellem de involve¬ 
redes farver og denne farve vil det 
område hvor overlapningen sker så 

f Ct . 

Altså hvis Sprite 1 har 'farve 8 og 
Sprite 2 har farve 4 vi 1 der på det 
overlappede stykke fremkomme farve 
(1000 OR 0100 = 1100 BINÆRT) 

12 hvis altså en af spritene har 
fået sat bit 6 i de pågældene 
Farve-1 inier. 

Bit 5 


Collision detection. 

Man kan ved at stille denne bit 1 l 1 
få Videochippen til at 'Glemme' at 
checke om denne linie i spriten 
støder sammen med andre sprites. 

Håber i fik den, her er et 
per demonstrations programmer. 

H.G. 



^ Et lille musik pot pur i 
2 'for musikelskerne 
J 'af Johnny B 
4 • 

10 PLAY"slJm4?0t29J" 

20 READA$:IFA$ - "end"THENPLA Y"rl. 
O TO2OEL SEIFA $‘* "END"THENEND 
JO PLAYA$:GOTOZO 



77 oa gar vi til enkebal 

100 DATA oJ14alr4gfga2g2flflr4gfef2 

d2clodfga2f2gr4o6o.d8oo5b-ag 

110 DATA oJl4alr4gfga2g2f1flr4gfef2 

d2clodfga2g2fl,r4 

120 DATA O414r8o8ccood8coja2f8ffffg 

8fd2r8cdfga2f2gl.r4r4o4coood8ooJa2r 

8ffffg8fd2r8cdf ga2g2flr4ode 

1J0 DATA oJ14air4gfga2g2flflr4gfef2 

d2olcdfga2f2gr4o6c.d8oo5b-ag 

140 DATA oJ 14alr4gfga2g2flflr4gfef2 

dZclcdfga2g2fl. r4 


190 DATA end 

199 ’What Did You Learn In Sohool T 
oday 

200 DATA tl5018oJoo!6cl6egg. gl6g4ee 
16@16def2ccl6cl6egg.g!6g4eel6el6fdc 

210 DATA 18oJr8ga. al6agl6fl6gl6glég 

léglégga . aléafgggga.al6aaggggaal6al 

6afg. gl6go2goJool6cl6egg.gl6g4eel6e 

16 fdo 2 

220 DATA end 

299 'Ah. disse minder 

J00 DATA t299oJ14f+8f+8aar8f+8bbf+8 

f+8aa8a8r8e8ggr8c+8f+f+r8o2a8oJeer8 

o+8o2bloj r4f+8f+8aar8f+8bbr8f+8aar8 

@8 ggr8c+8f+f+r8o2a8oJeer8c+8dlr4r8 

J10 DATA oj 14f+8o4ddr8oJf+8o4o+o+r8 

oJf+8bbb8b8o4ddr8d8o+c+r8c+8oJg+abo 

4o+lr 4oJf+8 f+8aaf-h8f+8bbf+8f+8aar8e 

8ggc+8c+8f+f+r8o2a8oJeer8o+8dlr4r4 

J20 DATA oJ 14alg+ab2. a2. f+f+f+r+ef+ 

gi.bla+bo4o+2. oJb2. aaaaa-gf+1.alg+a 

b 2 . a2a8a8o4ddddc+coJbl.bbbo4c+o!bo4 

o+d2.oJa2a8a8bbr8a8o4c+c+oJr8a8o4dl 

r4r4 


600 DATA END 
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3 X MUSIK MED JOHNNY 


1 'Nok et liils stykke denne gang 

2 'med flere toner det er et 

3 'JØRN INGEMANN stykke og det er 

4 ‘uendelig lang ha ha. 

9 'af Johnny B 
6 ' 

10 RESTOREIOOO:LN-1000 

20 READA$,B$:IFA$ m "end"THEN10 
40 PLAYA$.B$ 

JO GOTO20 

1000 DATA 18r8r8r8r8r8rBr8r8r8r8r8r 
8rår8r8,18o9cegeo4co9gegcegeo4co3ge 
1010 DATA 18o9cco4go9cecegco6co9bag 
gg.18o9gcego4oo9ego4oo3gfao4cfo3oe 
1020 DATA 18r8r8o9gfdo4bgbo3 df ecagg 
. 18o9go4co2gbo3dgo2bo3dgdceo4co3ge 
1020 DATA 18o3gr8 oco4go3 cecegco6 co3 
bag,18o9go4co9gcego4co9ego4co9gfao4 
of 

1040 DATA 18o3ggr8r8gfdo4bgbo3do4bo 
3co4go3e,18o3c@go4oo2gbo9dgo2bo9dgd 

oeg 

1030 DATA 18o3cccrScco4go3oecegoo6o 
o3b,18o4co3ego4co3gcego4co3ego4co3g 
fa 

1060 DATA 18o3agggr8r8o6gfdo3bgboéd 
fe,18o4cfo3cego4co2gbo3dgo2bo2dgdo 
1070 DATA 18o6cagggr8o3oco4go2oeoeg 
c, 18o3eo4oo3gego4co3gc@go4co3ego4co 
9g 

1080 DATA 18o6oo3bagggr8r8o6gfdo3bg 
bo6d,18o9fao4cfo3cøgo4co2gbo3dgo2bo 
3 dg 

1090 DATA 18o 3 bo6 oo9 go6 øcccr8co7ooé 
afoo9ao6o, 18o9dcego4co3ego4co3gfao4 
ofo3ao4c 

1100 DATA 18o6fagoagggr8r8gfdo3bg,l 
8o4fo3fceo4co3 gego4co3 go2gbo3 dgo 2 b 
1110 DATA 18o3bo6dføoaggr3r8go7co6a 
f c,18o2dgdc®o4oo9g®go4oaJgfao4cf 
1120 DATA 18o3ao6ofagcaggr8r8ogfd,1 
8o3ao4cfo3fo@o4co3g@go4co9go2gbo3d 
1130 DATA 18o9bgbo6do3bo6oo3goéeccc 
co,18o3go2bo3dgdcao4co3gego4co3g 
1140 DATA end, "" 


1 'Nok et lille stykke 

2 'en sød lille melodi 

3 ' kaldet Rabbit 

4 'af Johnny B 

9 ' 

10 RESTOREIOOO: LN=1000 

O READA$.B$:IFA$~"end"THENEND 


40 PLAYA$,B$ 

30 GOTO20 

1000 DATA 18o3eeooeeooo4abo3odeed, 1 

8o3go4cego3go4cego3fao4ofo3gbo4f 

1010 DATA 18o3deecoeeooaagfee,18o4g 

O3go4cego3go4oego3fao4ofo3gb 

1020 DATA 18o3ddeeooeeoco4abo3cde, 1 

8o4fgo3go4cego3go4cego3fao4cfo3g 

1030 DATA 18o3effggagccdøffo4bb,18o 

3bo4fgo 3go4cego3go4cego3gbo4fg 

1040 DATA 18o3ooooo6oco3babbagagf, 1 

8o3go4cego3fao4ofo3gbo4fgo3fao4c 

1090 DATA 18o3aggocaagfgedodd,18o4f 

O3go4cego3fao4cfo3go4cego3gb 

1060 DATA 18o3dgoeaaoéoco3babbaga, 1 

8o4fgo3go4cego3fao4cfo3gbo4fgo3f 

1070 DATA 18o3gfaggccaagfgøde,18o3a 

o4cfo3go4cego3fao4cfo3go4cøg 

1080 DATA 18o3dddøccccr8,18o3gbo4fg 

o3 go4cogr8 

1090 DATA end,"" 

1 'og en sidste for 1 dag 

2 'det er Palmer hej fra 

3 'Johnny B 

4 ' 

10 RESTOREIOOO: L~0 

20 READA$,B$:L~L+LEN(A$)+LEN(B$) 

30 IFA$="end"THEN10 
40 PLA YA$, B$ 

30 GOTO20 

1000 DATA 18o4go9coeadco4bo3co4aggg 
gg,18r8r8o3go4co3go4co3fafago4co3go 
4co3g 

1010 DATA 18r 8 o4go5edddc#dd f edddd, 1 
8o4co3go4co3gbgbgbgbgbgb 
1020 DATA 18o9dr8o4go3cøø®dco4bo3co 
4aggg,18o3gbr8r8go4co3go4co3fa fa go 4 
co3 g 

1090 DATA 18o4ggr8o3 co4baao5 dco4hbo 
3 ode o, 1 3o4co3go4cr8r8o3fo4cr8r8o3gb 
r8r8go4c 

1040 DATA 18o3ccccr8o4gaao9ccfffo4a 
g,18o3go4co3go4co3gr8fo4co3fo4co3fo 

4co3fo4co9 g 

1030 DATA 18o4go3ccsee co4b a bo 3 edd ff 
,13o4co3go 4c o 3 go4co9go4co3gbgbgbgb 
1060 DATA 18o3eeeeccco4gaao3ccfff,l 
8o3go4co2go4co2go4co9gr8fo4co3fo4co 
3 fo4co3 f 

1070 DATA 18o4aggo9cceø@co4bbbo3cd@ 

,18o4co3go4co9go4co3go4co9go4co3gbg 

1080 DATA 18o3do4bo3 c c c ccr8r8,18o9 g 

bgo4co9go4co3go4cr8 

1090 DATA end,"" 
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TIPS FOR SVI 328 * FEJL RETTEREN ■*--*"*-* 


TIPS FOR 328 
FRA HAGNUS 

Ett bra sått att listskydda s i na 
program år: 

Poke 8th8003, &hf f (Normalt =10) 

Poke &h8004 ,&hff (Normalt =0) 


Adresser: &hf d 86 S<hfd87 &hfd 88 


254; Shift F1/F6 - 

253; Ctrl F2/F7 - 

251; L.Grph F3/F8 - 

247; R.Grph F4/F9 CapsLock 

239; ESC F5/F10 Select 

223; --Print 

-o-o-o-o-o-o- 

Vad hette det sist inladdade 


programet ?? 

For X=&hF9A7 to &HF9AC:?Chrd(Peek( 

X));:next x 

-o-o-o— - 

Samrnanf 03 a två o_H ka proq r am : 

Prog 1 sparas på nytt med Save 
"namn",A 

Prog 2 sparas som vanligt 

C 1 oad "prog. 2 " 

Nerge "prog.1" 

-o-o-o-o- 

Elna tåFder gå RANE N 

10 Poke &HF4FF, 49 : Poke S<HFe79,201 
20 Restore: AD=&HF400 
30 READ A0: ifA0< >"0" then poke ad, 
Val("&H"+A0):Ad=Ad+l:Goto 30 
40 For 1 = 1 to 10:ReadA:PokeI+&HF3EF,A: 
Nex t I 

45 Poke &PIFE7A, 0: Poke&HFE7B , &PIF4 
50 Data f5,c5,e5, 6 ,1,10,fe,21,f0,f4 
,6, 10 ,c5,7e,23,d3,81,3e,87,d3,81 
,00,6,3a, 10,-Fe,cl, 10,ee,3a,ff,f4 
,d3,81,3e,87,d3,81,el,cl,fl,c9,0 
60 Data 13,14,12,2,3,5,4,7,3,12 
70 Poke &HFE79,195:’ Tånd rånderne 
80 Z0=input0(l) 

90 Poke &HFE79,201:’ Sluk rånderne 
100 Z0=input0(l) 

110 goto 70 

By Nagnus Pihi 1988, 

Computer Software Service ! 



FEJL RETTEREN 

H.G. har i et anFald a-F anger 
oplyst at han har Fundet Følgende 
Fejl i sine Artikler i år. 

Blad 5: 

Side 11 Spalte 2 linje 4: 

Man har 64 stk 16*16 Sprite og 
ikke kun 32. Det var bare H.G. 
der var lidt dårlig til den 
store tabel. 

Side 11 Spalte 2 linje 11-14 Fra 
bunden. 

Computeren runder IKKE adres¬ 
ser i BASE kommandoer aF så 
de passer. H.G. mener helt 
sikkert at han havde prøvet 
det uden at ' kassen' brokkede 
sig. 

Bl ad 2 (i år) Si de 13 2. spal te 

Jeg (H.G.) har i 2. program 
eks. lavet en Fejl, linie 10 
skal se ud på Følgende måde. 

10 A$=INPUTS(1) 

og altså ikke INKEYS(l) 

På grund aF sine indrømmelser har 
H.G. Fået Frit lejde og kan nu med 
lettet hjerte og samvittighed gå 
hjem og holde sin resterende som¬ 
mer Fer i e . 
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FOR BEGYNDERE -*-*-*•* 



F®r i^iyfeegygisier’© 


Første prg tegner en sinuskurve 

10 SCREEN 0*LGCRTE10,lQ{PRZNT"Pleas 
© Unit*' 

20 OXN 8(360) ,C< 360) 

30 FOR ZX«0 TO 360 8TEP2lRsZX/57.33 
40 S(ZX)«SZN(R)IC(ZX)aCOS(R) 

80 NEXTZX 

60 SCREEN 21'eller sereen 3 
70 FOR ZX*G TO 360 STEP 2 
80 PRESET (ZX/2,8(ZX)M30+8Q),7 
90 PRESET <ZX/2,8<ZX)*3©*SQ),1 
100 WEXT ZX 
110 GOTO 110 

Naste prg tegner Stel eller 
del CZRCLER 

10 SCREEN 2 

20 OEF FNR<RWGLE)«RNGLE/S7,33 
30 8T*FNR(180) t * FORRMORE STRR? VZN 
KELEN VED RT.FQRRMDRE TRLLET Z ( ) 
40 'TG STøRRE TRL Z ( ) TO NZNORE R 
F CZRKLEN TEGNES 

SO 'TO NINDRE TRL Z ( ) TO NERE RF 
CZRKLEN TEGNES 
60 CZRCLE {ICO,100),40,i3,ST 
JO GOTO JO 

Nu en lille sprite mand 
der Sievæger sig omkring 

10 ON ZMTERVRL*10 GOSrø 1000 
3Q SCREEN 1,1 

40 FOR Zsl TO 8SRERD NSRSsRC+GNNS 
) tNEXT 

SO SPRITES ( 1) mm 
60 XX«128tYX«96*XZX=l*YZXsi 
68 ZMTERVML ON 
JO FOR Z*i TO 9COC*NEXT 
80 EN9 

90 DRTR 86,86,16,56,84,16,40.68 
iOOO PUT SPRZTE 1,(XX.YX),1 
1010 XXaXX+YZXtYXaYX+YZX 
1020 ZF RNO(2)*6>4 TNEN XZX>-XZX 
1030 ZF RNO(2)M4>3 TMEN YZX*-YZX 
1040 RETURN 


Nu en lille iyddemonstratien 

10 SOUND 1,3 
20 SOUND 8,10 
30 FOR ZX«0 TG 285 
40 SOUNO O,IX 
50 NEXT 
60 SOUND 8,0 


Og nok en lyd borge 

10 SOUND O,253:SOUND 1 ,O : 1 tone pi te 
h 

20 FOR 1*0 TO 13 

30 FOR J *0 TO 50:HEKT: 1 de Iay loop 
40 SOUND 3,1 
50 NEHT 
60 SOUND 3,0 


Nok en lyd 

7 0 SOUND 7,8310110111 
20 SOUWD 8, G 
30 FOR 1=0 TO 37 
40 SOUWD G,I 
50 t$=INPUT$(1) 

GO NEXT 
70 SOUND S, O 

Bang du er død 

7 O SOUWD 7,8B 7 0 7 1 0 7 1 7 

20 SOUND 8,75 

30 FOR 1=31 TO O STEP -.5 

40 SOUND G,I : SOUND 8,1/2 

50 WEXT 

€0 SOUND 8,0 

Her er 2 rut-iner til at gemme 
og loade et screen billede i 
screen O på hånd eller disk 

7000 'g em screen 
7 0 7 0 WI7)X=BASE(0) 

7 020 PD77.=BAS£(2) 

7 030 OPEN"SCREEN" FOR OUTPUT AS #7 
7 040 FOR r/.=N!D‘/. TO Nm+R5R 
7 050 C%=VPE£k( I’/.) :PRIWT#7 ,CHR$(C7.) ; 
7 OGO WEXT 

7 070 FOR l'/.=P m% TO PFTl'/i +2047 
7 080 CX=VP€Ek( I'/.) :PRINT #1,CHR$(CX) 






*-■*-** FOR BEGYNDERE -*•*•*-* 



7 090 NEXT ; CLOSE #7 
7100 RETURN 
7500 ' 

1 G00 ' 

7 700 ' 

2000 'load screen 
2010 A/m^=BAS£(0) 

2020 Pm%=BAS£(2) 

2030 OPEN"SCREEN" FOR INPUT AS #7 
2040 for ix=n m% TO NmZ+959 
2050 P$=INPUT$(1 , #7) : VPOK£ 17. ,ASC(A 
*) 

20S0 N£XT 

2070 FOR /7-PP77 TO PW. + 2047 

2080 A$= INPUTHI , #1) : VPOk£ l%,ASC(A 

O 

20A0 NEXT:CLOSE #1 
2700 RETURN 



9iv»»rdnn laver man on pi8n to I 
opstilllny »lett« yor «lu med 
»lotto Milo pr op ram 

10 CLS 
20 WllimiO 

30 1*9! IXT” Ta I »pst I!II ny 
110 IMtlST” . 

30 l*i!!XT 

»o i’oiMt- ito:m s iii-stii#< o >+ w ” j i fuixc 

0/> =:JTHUS0// = LHPT/;<0//, I )+”0”+MI0*<0/' 
» 2 > 

3« !>l!IXT0/< l 11*1! IXT” ”j 

»O XKXTO 

Jn mon det vor Jo rnrt nt ao 
noyet of tor tn Mono dot por 
du I ot mod <lntns<stn I npor 

<0 CLS 
20 WI0TH31I 

:iO 1*1! IXT” Tn i »pst I II I ny 

ilO 1*1! IST ^ . 

50 1*1! I MT 


00 l’0IM|-fT034i<|*-STtt*<<|>+” ” i IPLKX< 
<|#>*:JTHK3M|*-LfiPTO<<|ff, i >t ”O”tOI0£<<|* 
1 2 > 

05 I!I!AO A* 

00 IV Afi *"KXD”THNX200 
70 l»l!ia!T0/ I 11*1! IST Af, 

<10 XHXTO 

00 0ATA"»JOHSSY ” 

Ol DATA" »II. ” 

02 OATA” a AtOSIIC 
o:* OATA”=>OOSA ” 

04 OATA" = l ? OI! 

05 0ATA”=XYH ” 

00 OATA"»OSX 
07 DATA” s l?OLI[ 

OSI OATA” = SSIJJ 
00 IIATA”*l J OMCS 
100 DATA 0X0 

200 1*1! I XT 11*1! I XT i1*1! IXT” SLOT 

du knn itndre nu t n I tn I vod 
nt rette linie 00 for S|=ITO 
dot nntnl du onskor du knn 
so Ivf»IyeI Iy Invo llyesA 
mnnyo dntn sistnlnyer som du linr 
tn I I pro kor kunne Joy li nvo linft 
33 dntn sutnlnyer. 

0IIS »lo mnnyo skrifttyper skyldes 
Joy li nr ffiot Lnr s Hnn son s nye pry 
mo»l 03 Xyo XM| fontor dot or linro 
I iskkor 1 

Hej for nu Johnny 91. 
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SV I 328 
GRAFIKTEGN 

pA printeren 

Et problem som vi har haft her på 
redaktionen har veret SVI-328 prog¬ 
rammer med grafik-tegn i, for 
hvordan skal vi få dem printet ud? 

Indtil for nyligt har vi måtte 
bruge et par timer pr program på at 
lave tegnene om til CHR$(nr) 
hvilket i visse tilfalde har 
forlænget listningen med ca 25'/.. 

Problemets losning er 'DownLoad* 
karakterer, dette forefindes på de 
allerfleste printere på markedet. 

Fra aktive Uffe Bagger Hansen har 
vi modtaget et program til at 
definere tegnene på en 11 nåles 
printer men da det er de færreste 
der har sådanne har jeg brugt en 
nat på at lave programmet om til de 
mere gængse printere: Seikoshia, 
Fuji PD80 og lignende EPSON 
komperti ble printere med 7x8 dots 
størrelse tegn i 8x9 matrix. 

Grunden til at jeg brugte en hel 
nat var at jeg først skulle repa¬ 
rere min gamle Fuji printer. 

Her er de to versioner af 
programmet, hvis du får problemer 
så CHECK: 

At Dip Switchene er sat rigtigt. 

At du har RAM nok i din printer 
(2 eller 4KRAM i EPSON-komp.) 

At linie 50 passer, CHR$(14) er det 
Danske tegnsæt. 

At linie 90 passer med styrekoder¬ 
ne til din printer. 

At linie 140 er den rigtige måde at 
slå over til DownLoad sættet på. 

På EPSON-komp. skifter man til det 
■-.armals (danske) tegnsæt med: 

Lprintchr$(27)"R"chr$ <14) 



10 ' SOI -328 DOWNLOAD 

20 ' EPSON (FUJI PD80) 9 nåle 

SO 7 

40 / Kopierer Dk-tegnsæt -> Ram 
50 LPRINTCHR$(27);CHR$(58);CHR$C14);CHR$(1 

) 5 

SO 7 LÆSE TEGN SOM SKAL ÆNDRES 

70 READA$:IFA$="$"THEN 14 0 

SO 7 Sæt parametre tor- Download 

90 I=ASC(A$):LPRINTCHR$<27);"&■;CHR$(I);CH 

R$(I);CHR$(0); 

1 00 7 Her de-fineres tegnet 
1 10 FQRT=OT07:READA:LPRINTCHR$(A);:NEXT 
120 GOT070 

130 7 Uæl g DownLoad Tegnsættet 

140 LPRINTCHR$< 27);CHR$(37)}CHR$<1);CHR$<0 

) 5 

150 7 Ois Download Tegnsæt 

180 F0RI=180TQ211:LPRINTCHR$<I) :" ":■NEXT J 
LPRI NT ’ 


170 

END 


180 

7 SUI-328 Grafik sæt 

190 

DATA 

"K ,,,,255,3,8,£ 

200 

40 

DATA 

,240,240,240. 

210 

DATA 

"^,8,8,3,248,,, 

220 

DATA 

"-i",8,3,8,255,,, 

230 

DATA 

’V",3,3,3,15,,,, 

240 

DATA 

,255,255, 

250 

DATA 

"V ,240,240,240, 

260 

DATA 

"I",255,255,255, 

270 

55 

DATA 

"T , 128, 128,123, 

28 0 

DATA 

"L”,255,1,1,1,1, 

29 0 

DATA 

"JM,1', 1,1, 1,1, 

30 0 

DATA 

. i, i, i, i, l, l, 

310 

DATA 

"=■*,20,20,20,20, 

320 

DATA 

"■”,240,240,240, 

330 

28 

DATA 

,128,128,123, 

340 

55 

DATA 

,255, 129, 129, 

350 

DATA 

3 r" ,,,,,15,8,3,8 

360 

DATA 

".**,,,,,15,15,15 

370 

DATA 

,3,3,8,8,255,! 

380 

DATA 

V* ,15,15,15,15, 

390 

DATA 

T" ,255,128,128, 


400 DATA " ,240,240,240,240 

410 DATA 'V,3,3,3,3,15,S,8,8 
420 DATA "-‘-",3,8,3,8,243,3,3,3 
430 DATA ".",15,15,15,15,,,, 

440 DATA " L",,,,,248,8,3,8 
450 DATA 'V,255, 127,83,31,15,7,3,1 
480 DATA u r,120,252,254,127,127,254,252,1 
20 ’ 

470 DATA "/”,1,2,4,8,18,32,84,128 
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ORAFIKTEQN pa printeren 


M M M M 


480 DATA 
490 DATA 
500 DATA 


"X" 

il \^a 


1129 , 66,36,24,24,36, 66 ,129 
,128,64,32,16,8,4,2,1 
■0",40,66,129,129,129,129,66,60 
,15,15,15,15,240,240,240,240 
,60,126,255,255,255,255,126,60 
,8,8,4,4,3,,, 

, , , , ,224,16,8,3 
,8,8,16,16,224,,, 

,255,,,,,,, 

,56,57,57,247,247,57,57,56 
,24,60,126,255,255,126,60,24 
, ,,,,,,,255 


DATA T“ ,255,254,252,248,240,224,192, 1 


510 

DATA 

»I ■■ 

520 

DATA 

"i* 

530 

DATA 

II li 

540 

DATA 

II 1 II 

550 

DATA 

*J « 

560 

DATA 

"I " 

570 

DATA 

"tv 

580 

DATA 

n 

590 

DATA 

" ri 

600 

55 

DATA 

"■■ , 

610 

28 

DATA 

■r , 

620 

DATA 

M tt 
fi* 5 

630 

DATA 

"Å ", 

640 

DATA 

"S ■, 

650 

DATA 

n n 

C 9 

660 

DATA 


670 

55 

DATA 

“T, 

680 

DATA 

» H 

> 

690 

DATA 

”1“ , 

700 

DATA 

” r, 

710 

DATA i 

i 


,255, 


f 5 


10 ' 31*1 -328 DOWNLOAD 

20 ' TIL 11 Nåles printer 

30 ' Af Uffe Bagger Hansen 

40 ' KOPIERE ROM TIL PRINTER RAM. 

50 LPRINTCHR$<27);CHR$(5Q);CHR$(0)jCHR$(0) 
! CHR$<0); 

é-0 ' LÆSE TEGN SOM SKAL ÆNDRES 

70 READA$: IFA$="$$ ,, THEN140 
80 ' GIVE PRINTERNE KOWANDO TIL AT 
®4DRE KARAKTER SOM LÆGGER I 
VARIABLE 'I" 

90 I=ASC(A$):LPRINTCHR$<_7);•&"ICHRUXQ)iCH 
R$(I);CHR$<I;;CHR$(139); 

100 ' SENDE DATA TIL PRINTEREN OM 
VARIABLE 'I' 

110 FORT=OTO10:READA:LFRINTCHR$<A);sNEXT 
120 GOT070 

130 " SÆT NYE GRAFIK TEGN TIL 

140 LPRINTCHR*<27);CHR$<37);CHR$<1);CHR*c u 

) i 

150 ' SÆT ALM. GRAFIK TEGN TIL 
160 'LPRINTCHR$<27);CHR$<37);CHR$<0)}CHR$( 
0 ); 

170 ' SKRIVE NYE GRAFIK TEGN 

180 FORI=160T0211sLPRINTCHR$(I);* “5sNEXT- 

LPRINT 


190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
. 340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 


END 

' DATA TIL PRINTER TEGN 
DATA 
DATA 



9 9 9 

9 9 ! 

,255,,8,,8, 

»■» 

,240,, 

,240,,240,,240, 

»j» 

,8, 

,8, 

> ,8,,248,,,, 

■-T 

,8, 

,8, 

i,8,,255,,,, 

■ ■ 

1 

,8, 

,8, 

',8,,15,,,, 

" 1" 

9 9 9 

9 9 9 

,255,,255,,255 


DATA 

DATA .. _ 

‘„y ’ 240 ’ *240, ,240,i15,, 15, , 15 
DATA l 1 ,255,,255,,255,,255,,,, 

DATA ’T,128,,128,,128,,128,,128,,255 

DATA 255, ,1, ,l,,l,,l,,l 

DATA *J",1,,1,,1,,1,,1,,255 

DATA , 1, , 1,, 1,, 1,, 1, ,1 

DATA “= 8 ,20,,20,,20,,20,,20,,20 

DATA '"",240,,240,,240,,,,,, 

DATA * ‘,128,,128,,128,,128,,128,,128 
I D " * 255 »» J 29,,129,,129,,129,,255 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA V",1,,6,,12,,48,j96,,128 
DATA "X",129,,102,,60,,60,,102,,129 
DATA "V,128,,96,,48,,12,,6,,1 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


DATA ,3, ,4, ,8 

DATA "f ,56,,121,,255,,255,,121,,56 
DATA "T,128,,192,,224,,240,,252,,255 
DATA ■-\8, ,8, ,8, ,8, ,8, ,8 
DATA ,170,,85,>170,,85,,170,,85 
DATA 


II 0 

r 

9 9 9 9 

, , » 15, 

CO 

00 


B H 

■ 

9 9 9 9 

5,,15, 

,15,,15 


,8, , 

00 

00 

255,,8 

, , 8 

B II 

,15, 

,15,,15,,15, 

,15, 

T" 

,255 

,,128, 

,128,, 

128, 

a ih 

,,» » 

,,,240 

,,240, 

,240 

li a 
T 

j 8,, 

8, ,8,, 

15,,8, 

,8 

n _L« 

> 8,, 

8,,8,, 

248,,8 

, ,8 

H fl 

■ 

j8, , 

8,, 8,, 

,, ,, 


" L* 

» » » , 

,,,248 

,, 8,, 8 


■ k . 

,255 

,, 63, , 

31,,15 

,, 3, , 

0 

, 120 

,,252, 

,127,, 

127, ; 


“O" 

, 60, , 

102, 

,195,, 

195 

,,102 

, ,60 

“g* 11 

,15,, 

15,, 

15,,240,, 

240,, 

240 

”0° 

,60, , 

126, 

,255,, 

255 

,,126 

,,60 

a a 

,8, ,8 

, , 4, 

,8, , ,, 




n i a 

, , ,, , 

,,224,,16, 

,8 



a j ii 

, 8, , 8 

,,16 

,,224, 

,, , 



H| Il 

,255, 

9 9 9 9 

, , , , , 




"f 

, 56,, 

57,, 

247,, 

247,, 

57,,56 


,24, , 

60,, 

255,, 

255,, 

60,,24 

U jtl 

, , , ,, 

, , ,, 

,",255 


»|« 

,255, 

,255 

,,255 

,,255 

,,255, 

■r 

,255, 

,252 

,,240 

,,224 

,,192, 

b a 

,10,, 

5,,10,,5, 

,10,, 

5 

■i" 

, 1 , , 3 

,,15 

,,31, 

, 63,, 

255 

■i ‘ 

,170, 

,85, 

,170, 

,,, ,, 



DATA $$ 


> , , , , , 


,255 


, , , » 
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SVENSKA S I OAN 

, Forrå gången skrev vi att vi denna! 
gång skulle ta upp skillnader och 
eventuel la likheter mellan VPOKE 
och OUT. Detta tankte vi då gora 
av den enkla anledningen att vi 
någongång i fortsåttningen tankte 
plåga er lite med maskinspråk på 
den hår sidan (sidorna (ibland 
...)) . Det vi tidigare sa om att 

det inte skulle bli mycket svårare 
stammer alltså inte riktigt. Vi 
ska forsoka forklara det mesta på 
ett sådant sått att ni forstår 
det som vi i fortsåttningen kommer 
att gå igenom. 

Nu over till OUT, IN, VPOKE och 
VPEEK. 

Vi borjar med ett enkelt exempel; 
Antag att du har skrivit in fol- 
jande rad i BASIC: 

10 VPOKE &H1810.1 

Du vi 11 nu gora om denna till 
någonting med OUT n,m . 

Det forstå du måste låra dig år 
att sortera ut den mest och den 
minst signifikanta byten av adres¬ 
sen som i detta fail år &H1810. 
Den minst signifikanta byten år 
alltid den som står till hoger i 
adressen, dvs i detta fallet &H10. 
Den mest signifikanta byten år då, 
som de fiesta av er nu råknat ut, 
det teckenpar som står långst till 
vånster i adressen, i detta fail 
&H18. 

Varfor behover man nu veta detta? 

Studera foljande program : 

10 OUT &H81,&H10 

20 OUT &H81,&H18 OR &H40 

30 OUT &H80,&H01 




Ovanstående mycket kryptiska prog¬ 
ram ersåtter det mycket enkla 
VPOKE kommandot ovan. Mycket jobb 
for lite kan det tyckas. 

Det ståmmer så långe det gåiler 
BASIC. Siffrorna &H81 och &H80, år 
de portar,utgångar eller vågar man 
anvånder sig av for att nå gra- 
fikprocessorn. 

Talet &H81 år den port som talar 
om for VDP:n vilken adress vi vi 11 
andra innehållet i och &H80 år 
det tal som har hånd om informa¬ 
tionen som vi vi 11 lågga på vår 
adress. 

Det programmet som vi skrev ovan, 
består av två huvudfaser: 

1. Inmatning -av adressen, vi lket 
sker på raderna 10 och 20. OBS! 
Lågg mårke till att den minst 
signifikanta byten MASTE matas in 
forst. Orsaken till att man på rad 
20 måste til lsåtta OR &.H40 år den 
att man genom detta talar om att 
en adress matas in. Detta &H40 
måste alltid komma efter den mest 
signifikanta byten. 

2. Inmatning av data(informat ion) , 
som sker på rad 30. Hår år det 
bara att ange for port &H80 vilken 
data man vi 11 ha efter adressen. 
Anledningen till att vi tidigare 
var tvugna att dela på adressen 
beror helt enkelt på OUT inte kan 
hantera storre tal ån &HFF (255). 

For att ni riktigt ska forstå hur 
det fungerar så tar vi ett exempel 
till; 
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10 VPOKE S.H0125 , &H24 

Bllr alltså : 

10 OUT &H81,&H25 

20 OUT &.H81, &.H01 OR &H40 

30 OUT &.H80 , &H24 

Som test for att se om ni har 
forstått det hela kan ni ju ta 
några av de tldigare exemplen som 
innehåller VPOKE och oversatta 
dessa VPOKE med OUT. Lyckas ni ska 
programmet f ortf arande fungera 
efter era andringar. 

Den fordel ni har av att kunna 
detta i BASIC, ar att ni genast 
kan oversatta detta till maskinsp- 
råk. Det ser då ut så hår for er 
som år lite nyfikna: 

LD A,H25 
OUT (H81),A 
LD A,H01 
OR H40 
OUT (H81),A 
LD A,H24 
OUT (H80),A 

Denna maskinspråkssnutt gor exakt 
samma sak som ovanstående BASIC 
exempel, men en hel del gånger 
snabbare. 

De exemplen vi har gett er hår 

idag år bara illustrativa exempel 
och inte gor så mycket i sig 

sjålv. Det år forst når ni såtter 
in det i ett sammanhang som det 
blir något av det. Hur det gors 
kommer vi att gå igenom i vår 

maskinspråkssko1a som vi startar 
med i någon av de foljande gånger- 
na. 

Eftersom att VPEEK och IN har 

ungefår samma likheter som VPOKE 
och OUT, så tar vi inte upp det 
hår men det kommer antagligen lite 
senare i vår maskinspråkskurs. 


Nåsta gång, vilken antagligen år 
den sista for vår grafikskola, 
tånkte vi gå in lite nårmare på 
detaljerna kring VDP:ns åtta in¬ 
terna register på er SVI- 318/328. 
Med dessa kan du bl.a annat styra 
vilken screen man vi 11 ha, vilken 
storlek på Spriten man ska vålja 
o . s . v . 

Det var vål allt vad vi hade att 
bjuda på for den hår gången. Lyck- 
lig låsning och må era ovånner 
kora ett program innehållande en 
evighetsloop, en evighetsloop, en 
evi.... 

Hej då! ! ! 

PS 

For er som bor någonstans i Malmo 
har vi ett litet extra erbjudånde 
att komma med. Vi tånkte nåmiigen 
starta en LAG (Lokal Anvåndar 
Grupp), dår man kan byta program— 
meringserfarenheter, program eller 
ideér. Ar du intresserad att del¬ 
taga så kan du ju ringa till Mag¬ 
nus eller Joakim (Våra telefonnum¬ 
mer står som vanligt på forstå 
sidan i denna fantastiska tid- 
ning) . 

DS 
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JOHNNY 


DISK AF JOHNNY 


Hej Venner 

Si mødøs vi i gøn og dønnø gang ør 
døt mød øt totalt hjømmalevat prg. 
som Jag stillør til Joros ridighad 
Idaøn til programmøt opstod an dag 
da an af mine gode bakondto Skjold 
frs Vejle ringadø. Han brokkada sig 
ovar at døt ikkø var til at findø 
nogøt pi al la sina dlskottor og døt 
s ammø problem havdø Jag sølv. 

Nu snakkede vi lidt og vi blev Jo 
ønigø om at alle file oplysningerne 
lå pi disketterne og at dø mitte nu 
kutrnø løses ind 1 Computeren og si 
gemmes som øn Datafil. 

Som sagt si gjort Jeg studerede i 
mitte mangø bøger og fandt nogle 
kommandoer dør kunne bruges til det 
formil og efter en uges tid var prg 
klar til brug. det løser kun de fil 
navne som er pi disken og alt si ej 
de slettede og desuden søtter løse 
prg nr. efter filnavnet siledes at 
nør man søger i datafilen fir de 
relevante filer pi skørmen eller 
printerøn med disknummer, dermed er 
det også let at få editeret sine 
disketter. 

Nu mangler Jeg kun en ting det er 
•t kunne slette nogle poster i data 
filen idet hvis man tilføjer noget 
pi en disk og løser den igen si op- 
ti d9r dobbeltkonfekt, hvis nogen 
ved hvordan man gør så lad mig det 
vide. 

Ring til Johnny B. tir 06 826698 

Nu til d@ 2 programmer der er godt 
forsynet med røm sætninger som i Jo 
gerne mi undlade at indtaste. 



10 ‘************0000000000000 
20 ‘ø ø 

?0 ’ø DI SK LÆSE PROGRAN AF * 

40 ’ø # 

20 ‘ø JOHNNY B SILKEBORG * 

60 ‘ø * 

70 'ø SYNTAXEN 1988 ø 

80 ’ø ø 

90 ‘*ØØøøøøøøøøøøøøøøøøøøøøøø 
100 • 

110 CLEAR200,8HD000 ‘reserveret til 
maskinkode 

120 ONERRORGOTOlJO:GOTOl6O 'fanger 
fejl 

120 IFERR*92THENGOTOl4OEL SEl 50 ’err 
22 * file not found denne rutine o 
pretter derfor diskfilen hvis døn i 
kke er der pi mildisken 
140 PRINT"OPRETTER DISKFILE.BIB":OP 
EN"DISKFILE. BIB"AS1: CLOSE: G0T0840 
120 PRINT’TEJL NR";ERR; "I LINIE";ER 
Li END 'hvis andre fejl end nr 22 
160 CL S: P0KE&HF247. Os ‘hvis drive B 
skal være default POKE8HF247.1 
170 ‘Imseroutlne 

180 Y*0:PRINT" ISÆT DISKEN DER SKAL 
LÆSES " 

190 PRINT" ->OG TRYK EN TAST<- 

", 

200 WF * INPUTF (1) 

210 PRINT 

220 PRINT:PRINT"(S JINGLE ELLER <D)0 
BBEL T SIDED ? "; 

220 WF* INPUTF(1) 

240 IFWF s "S"ORWF a "s"THENGOTOéOO 's 
eotor7 v/dobbelt - sector2 v/singl® 
220 S*7:R*14 'S*s@ctor-start/R^søci 
or-slut 
260 PRINT 

270 PRINT:PRINT"INDTAST DTSKNUNNER 

NED 2 CIFRE " 

280 PRINT"HVIS UNDER <100> INDSÆT N 
ULLER "; 

290 DF=INPUTF(2) 'dlsknr indl&ses s 
om variabel 
200 PRINT 

210 PRINT: PRINT" LÆS ER DISK NR. "DF 
220 N"VAL(LEFTF(DF.1)) ‘Nuværdi af 

1 ciffer 

220 N=VAL(NIDF(DF.2.1)) 'Nuværdi af 

2 olffer 

240 0"VAL (RIGHTF( DF ,1) ) ’O^v&rdl af 
2 olffer 

220 N"N+8H20 ‘gør oifferet lig mød 
høxvardlen 
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-Sfr-a-a--*- DISK AF JOHNNY B. 


560 N*N+3H50 ' 


370 0*0+8H30 ' 


M£7 Q*8H9000 'start adrassa navnabu 
ffar 

J90 Afi*DSKIX(0, S) ’saotorl&sa komma 
ndo 0*driva A /S*saotor OBS hvis ax 
driva A ar dafauit og du vil lasa 
dr Iva B skal dat vara (1,S) 

400 AD*PEEK(8HF551)+PEEK(3HF352)+25 
6 startadrassa hvor saotoran lasas 
ind 1 oomputaran 

410 ’Lasarutina for at taga filnavn 
ud S bogst før . og 5 art ar - ovar 
før til navnabuffar 
420 A*0:B*7 

4?0 FORI*A TOB : Z*PEEK( AD+I) : POKEQ,Z: 
QmQ+ 1 'navn 8 bogstavar 
440 NEXT:POKEQ,3H2E:A*A+8:B*B+5:Q*Q 
+1 'punktum 

450 FORI*A TOB: Z*PEEK(AD+I) i POKEQ, Zs 
QbQ+i 'navn 5 bogstavar 
460 NEXT 

470 POKEQ,8H20;Q*Q+1:POKEQ,8H28:Q*Q 
* 1 ** POKEQ, Mi Q*Q+1: POKEQ, N: Q*Q+1 ; POKE 
Q, 0:Q*Q+1:POKEQ,8H29:Q*Q+1 'disknum 
mar*5olfra 1 parantasar * aks:FIL-N 
AVN. EXT (001) 

480 A*A+24:B*3+29:IFA<511 THENG0T045 
QELSE49Q 'hvar saotor ar på 511 byt 

0 3 

490 S^S+1 : IFS<RTHENG0T05 90ELSE300 ' 
t&llar saotor fram til slutsaotor 
500 PRINT:PRINT"SAVER TIL DISKFILE 
8IB PÅ BIS-DISKEN" 

510 POKE3HF247, 1 'Sklftar til B dis 

kon 

520 G0T0610 

550 P0KE3HF247,0 'Sklftar til A dis 
kan 

540 PRINT 

550 PRINT:PRINT"FÆRDIG" 

560 PRINT:PRINT"LÆSE FLERE DISKS 3/ 

N " 

570 Wft*XNPUTø(l) 

580 IFWF* "J "ORU/F * "J " THE NGO TOl 6 0 
590 PRINT: PRINT"TAK FOR NU": END 
600 S*5:R*12:GOTO260 'vmrdiar hvis 
diskan ar slnglasldad 
610 AD*8H9000:1*0 'l&sarutina navna 
buffar 

620 AOF*CHRF(PEEK(AD+I)):1*1+1 
630 Aid»CHRP(PEEK(AD+I)):1*1+1 
640 A2ft*CHRø(PEEK(AD+I) ): 1*1+1 


650 A5t*CHRF(PEEK (AD+I)):I*I+l 
660 A4t*CHRF(PEEK(AD+I)):1*1+1 
670 A5t*CHRf(PEEK(AD+I)):1*1+1 
680 A6F*CHRF(PEEK(AD+I)) ; 1*1+1 
690 A7t*CHRf(PEEK(AD+I));1*1+1 
700 COø"CHRP(PEEK(AD+I)):1*1+1 
710 BOø*CHRø(PEEK(AD+I)):1*1+1 
720 Blø*CHRø(PEEK(AD+I)):1*1+1 
730 DOø*CHRø(PEEK(AD+I) ); 1*1+1 
740 Dlø*CHRø(PEEK(AD+I));1*1+1 
750 D2ø*CHRø(PEEK(AD+I )); 1*1+1 
760 D5ø*CHRØ(PEEK(AD+I)):1*1+1 
770 D4ø*CHRø(PEEK(AD+I)):1*1+1 
780 D5ø*CHRø(PEEK(AD+I)):1*1+1 
790 D6ø*CHRø(PEEK(AD+I)):1*1+1 
800 Y*Y+1 :G0SUB820 * tmllar an dlskf 
il fram 

810 IFY*112THENG0T055OEL SE620 'kun 
112 fllar på an disk 
820 IFAOø*CHRø(8H0)THENRETURNELSE85 
0 'sortarar lkka oprattada filstada 
r fra 

850 IFAOØ*CHRø(3HE5)THENRETURNELSE8 
40 'sortarar slattada fllar rra 
840 OPEN"DISKFIL E. BIB "F'ORAPPENDA SI 
'tllføjar at filnavn til bib. 

850 PRINT01 ,AOø+Alø+A2ø+A5ø+A4ø+A5ø 
+A60+A70+C00+B00+B10+B20+D00+D1ø+D2 
0+D30+D40+D50+D60 ’*filnavn til dl 

skbib 

860 PRINTAOø +Alø+A2ø+A3ø+A4ø+A5ø+A6 

X+A7ø+C0ø+B0ø+Blø+B2ø+D0ø+Dlø+D2ø+D 

30+D40+D50+D60;:PRINT" ", '*filna 

vn til sk&rm 

870 CLOSE 

880 RETURN 


10 '+*+++*++++*0+000000000000 

20 ' + 

v 

+ 

50 '* 

DATALÆSE PROGRAM AF 

0 

40 ' + 

0 

50 ' + 

JOHNNY B SILKEBORG 

ø 

60 ’ + 


+ 

70 ’ø 

SYNTAXEN 1988 

0 

80 ' + 


+ 

90 'ø+ø+øøøøøøøøøøøøøøøøøøøøø 


100 ' 

110 CLEAR200,8H9000 ’rasarvarar til 
masklnkoda og gør plads til variab 
lar 

120 POKE8HFCAB,1 'kun s tora bogstav 
ar 














D XSK AF JOHNNY B. 



i 90 H"Q: OPEN"DISKFILE. BIB"FORINPUTA 
SI ’h"antal filar 
UO CLS 'lasaroutlna 
UO PRINT" FIL -NAVN 

EXT (XXX)" 

160 PRINT"INDTAST SOGEORD ";:LINEI 
NPUTAt 

1-70 X"1 s S"LEN(At) 

ISO IFLEFTt (At .!)•" "THENX-X+1:S*S- 

1 

190 IFLEFTt (At.2)*" "THENX"X+1:S"S 

-1 


200 IFLEFTt (At, 5)"" 

S-1 

210 IFLEFTt(At, 4)*” 

-i 

220 IFLEFTt (At ,5)“" 
8*S-1 

2JO IFLEFTt(At.6)=" 


"THENX*X+1:S" 
"THENX-X+1:S 
"THENX*X+1: 
"THENX"X+1 


240 IFLEFTt(At,7)«" 
1:S"S-1 

250 IFLEFTt (At .8)*" 
"l.i} S"S -1 

260 IFLEFTt (At. 9)*" 
XH:S"S-1 

2/0 IFLEFTt(At. 10) = " 
B X+1:S"S-1 


"THENX*X+ 
"THENX"X 
"THENX * 
"THENX 


2 SO IFLEFTt (At. 11)*" "THEN 

X*X+1: S*S-1 

290 IFLEFTt (At. 12)«" "THE 

NX*X+1:S*S-1 

500 IFLEFTt(At .15)"“ "TH 

ENX m X+1:S"S-1 

J10 IFLEFTt(At. 14)"" "T 

HENX*X+1:S"S-1 


J20 IFLEFTt(At,15)"" 

THENX"X-hl:S"S-1 
JJO IFLEFTt(At.16)«" 

"THENX"X-hl:S"S-1 

J40 LOCATEJ8.1:PRINT"SKRIVE PA (S)K 
ÆRtl ELLER (P)RINTER "i 
990 Zt"INPUTt (1) 

960 PRINT:PRINT 

570 IFZt""P"THENG0T0920 

980 INPUTti.Mt 

590 IFEOF(l) a -1THEN4 9 0 'kun hvis da 
tafi 1 slut ar EOF" -1 al lårs O 
400 IFMIDt(At,X. S)"MIDt(Mt, X. S)THEN 
GOTO410ELSEGOTO580 'sammanlignar sø 
ff'sord mad datafil 


410 PRINTMts:PRINT" "; 

420 H"H+1:GOTO980 'h"fundna filar 

450 PRINT 

440 PRINT:PRINT"DER ER FUNDET ";:PR 
TNTH ; : PRINT"FIL ES " 


490 PRINT 

460 CLOSE:PRINT:PRINT"SOGE EFTER FL 
ERE J/N 

470 St"INPUTt(1) 

480 IFSt""J"THENG0T015O 
490 POKE8HFCAB.O 'annularar kun st 
ora bogstavar kommandoan 
900 PRINT 

910 PRINT:PRINT"TAK FOR NU":GOTO970 
920 INPUTti.Mt 'til printar lasarut 
Ina 

590 IFEOF(1)"-1THEN45O 'som 990 

540 IFMIDt(At.X.S)"MIDt(Mt.X. S)THEN 
G0T0550ELSEG0T0520 
550 LPRINTMt: LPRINT" 

560 H"H+1:G0T0520 ‘taller fundne f 

ilar 

570 END 



10 ' 

20 'ø DISK LOAD ER KAN BRUGES # 

90 '* FRIT! FOR SYNTAXEN 1988 ® 

40 AF JOHNNY B GOOD & 

50 ' * 0000 ** 0 * 000000 * 000^0000000 
90 ' 

100 ONSTOPGOSUB970:S TOPON:KEYOFF 
110 WIDTH40:COLORI5.4:FORI"226T0252 
:FORJ"0T07:READXt:VPOKE2048+I08+J, V 

^ ( "8b "+Xt) : NEXTJ: NEXTI 













-sfr-a--*"*- 


DISK 


AF JOHNNY B. 


120 X*12 : WIDTH 14 : F0RI*226T0292 
: PRINTCHR4(I) ; s NEXT: PRINT"Soft PRI 
NT 

190 FILES"*. LDR" 

140 PRINT:PRINT " VÆLG PRGt" 

ISO FOR I"21 TO 941 STEP 40 : Y1*VP 
EEK(I) : IF Yl*46 THEN Yl*INT(I/40) 
: GOTO 160 ELSE NEXT 
160 FOR I"21 + Y1*40 TO 941 STEP 40 : 

Y2*VPEEK(I) : IF Y2<>46 THEN Y2*IN 
T(IS40) -1 : GOTO 170 ELSE NEXT 
170 Y*INT (Y1+(Y2 ~Y1 )/2 ) 

ISO LOCATE X.Y : PRINT"< 

190 K**INKEY* 

200 IF Kø*"" THEN 190 

210 IF ASC(Kø)*91 THEN GOTO 290 

220 IF ASC(Kø)*90 THEN GOTO 290 ELS 

E IF Kø*CHRø(19) THEN GOSUB 270:BL0 

AD"m: "+PGØ,R ELSE 190 

290 LOCATEX.Y : PRINT" " : Y*Y-1 : 

IF Y<Y1 THEN Y=Y2 
240 GOTO ISO 

290 LOCATEX.Y : PRINT" " : Y*Y+1 : 

IF Y>Y2 THEN Y=Y1 
260 GOTO ISO 
270 FOR 1*0 TO 11 

280 PGø=PGø+CHRø(VPEEK(40*Y+19+I)) 
290 NEXT I : WIDTH 40 : RETURN 
900 DATA00011100. 00011100, 00110100, 
00110100,01100000,01100000.11000000 
,11000000 

910 DATA00011100. 00011100,10110100, 
10110100.11100000,11100000.01000000 
.01000000 

920 DATAOOOOOOOO, 00000100.10001100, 
10000100 , 11000000 , 11000000,01111100 
.01111100 

990 DATA11111100.11111100.10000000, 
11111000,11111100,00001100,11111100 
.11111000 

940 DATA11110000,11111000. 00001100. 
00000100.00000100.10001100.00011000 
, 00110000 

990 DATA00011000, 00110000, 01100000, 
11000000.11000000,01100000,00110000 
,00011000 

960 DATAOOOOOOOO. 00000000, 00000000. 
OOOOOOOO.00000000. 00000000,00000000 
,OOOOOOOO 

970 yiDTH40:KEY0N:PRINT'TirZ<JUT$ pr• 
s®nts":PRINT"NSX DISC BASIC wrslon 
1.0":PRINTUSING"#00#0 Bytis fru"; 

(FRE(0)+1660) 


DISKETTETIPS 
3K. EKSTRA 

Nogle diskettestationer formatterer 
ikke helt korrekt f. eks Sony HBD50 
det kan du undersøge med det lille 
program jeg bringer her. 

Du kan rolig buge den på en disk 
med Data idet intet bliver slettet 
Nu til programmet. 

10 PRINTDSKF(0) 

20 AD^PEEK(&HF351)+256*PEEK(&HF352) 
30 C$-DSKI$(0,2) 

40 IFPEEK(AD)< >2480RPEEK(AS+1)< >255 
ORPEEK(AD+2)< >255THEN PRINT"her er 
intet at henteGOT0100 
5 0 POKEAD,0:POKEAD+1,0:POKEAD+2,0 
60 DSKO$0,2 
70 DSKO$0,4 

80 PRINT"nu har vi + 3Kb extra" 

90 PRINTDSKF(0) 

100 END 

Hvis din disk station hører til dem 
der laver denne fejl kan du med det 
lille program hente 3 K tilbage til 
eget brug. 

Tipset er fundet i MSX Floppybuch 
Data Becker som er en bog der virke 
lig kan anbefales for diskejere. 
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LØST 8* FAST VED JOHNNY ■*■*•*■* 


LØST & KAST 
VED 

lolrøttp $. Uu«t6 

5)f 06 326698 

mMWMrmfflui 

Hos HSH An Der llMflut 
4715 Davensberg GerMany 
tlf oo9 49 2593 6168 

Kan Man i øjeblikket Købe en extra 
disks tat i on "Misui" billigt prisen 
er kun DM — 

Stationen er til indbygning og kan 
let bruges som løst drive idet kun 
bunden er åben. Man kan lave/købe 
en bund selv. 

Af strøM skal der bruges 5 og 12 
Volt som Man let kan "hugge” fra 
sin coMputer eller diskdrive, det 
bar jeg se ly gjort på Min Sony. 

Hvis ikke dit drive eller coMputer 
har tilslutning for extra station 
så kan Man hos HSH købe et inter¬ 
face til di skdi'i ves indsættes i en 
slotport det kan styre op til 8 stk 
diskstationer. 

Prisen ved jeg dog ikke endnu. 

Skal nogen have sig en super SONY 
så er det nu sidste udkald idet HSH 
kun har, ja i skrivende stund ca 8o 
stk tilbage af de oprindelige 2ooo 

Næste tilbud fra HSH på MSX II com- 
putere bliver forModentlig Philips 
MNS 828o den store Med 2 disks og 
Video Digitizer, Men den bliver nok 
en del dyrere en Sony' en. 

Dog er HSH ved at snakke Med et fir 
Ma om at freMsti Ile en MSX II saMMe 
størrelse som Sony uden disk altså 
helt uden udstyr og så blot Med ud¬ 
tag til det hele. En sådan Maskine 
kan forModentlig sælges for ca..... 
DÉMi 3 o o ji — 

Er nogen interesseret så kontakter 


du blot Mig. 

Denne artikel er skrevet og opsat 
Med et prograM der hedder DynaMie 
Publisher et prograM der kun kan 
køre på MSX II Maskiner. 

Det er et koMplet Trykkeri saMt op¬ 
sætnings prograM Meget anvanceret - 
og flot. 

13w kan vælge og loade 
for s fe. e l lige s ferif tttjper 

Du kan også loade tegninger saMt 
videobilleder og alt tekst tegning 
er saMt billeder kan forstørres og 
f oi'Mindskes saMt spejl vendes ja du 
kan næsten gøre hvad du lyster Med 
dette prograM, 

Hos HSH koster DynaMie DM 198,- 



JOHNNY B GOOD 


SILKEBORG - DANMARK 



li 
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73S * s °Rt" - h””d”Z** 


8 SPRITES I 
, IS FARVER 

" 1 'Program s DEMO-1 

2 ’Maskine : SVI-738 

3 'Forklaring 8 sprites på samme 

4 ’ linie og i 16 farver 

5 ’ kan opnås på 738'en 

6 ’ Se her hvordan ! 

7 'By : Henrik G. 

S ’ (c) Syntax’en 1988 

9 ' 

10 DEFINTA-Z 

20 CQLQR 15,1,1 
30 BASE(13)=&H1E00 
40 A=RND(-TIME) 

50 SCREEN 2,2 
60 DATA 0000001-110000000 
70 DATA 0000111111000000 
80 DATA 0000011111100000 
90 DATA 0000011111100000 - 
100 DATA 0000001111110000 
110 DATA 0000011111100000 
120 DATA 0000001111110000 
130 DATA 0000011111100000 
140 DATA 0000001111110000 
150 DATA 0000011111100000 
160 DATA 0000000110000000 
170 DATA 0000000110000000 
180 DATA OllllllllHlllio 
190 DATA OOllllllllllllu 
200 DATA 0001000000000100 
210 DATA 0111100000011110 
220 ' 

230 'Definer Sprite monster som 
240 'Normalt. 

250 ' 

260 A$=" 11 : S$= 11 " 

270 F0RA=0 TO 15s READDS:A$=A$+CHR$ < 
VAL ("&b"+LEFT$ (DS,8))):S$=SS+CHRS (V 
AL("S<B ,, 4-RIBHT$(D$ J S) ) ) : NEXT 
280 SPRITES<0)=AS+SS 
290 ’ 

oOO ' Jeg PUT’er de 32 sprites 
310 ’ som normalt. Bemårk 8 /linie 
320 ' 

330 FOR S=0 TO 31 

340 PUTSPRITES,((SM0D8)*17+32, <S\8) 
*32),6,0:NEXT 
350 ' 

360 ’ Ved tastetryk skiftes mode 
370 ' 

380 ZS=INPUT$(1):VDP(0)=4:VDP(5)=63 
390 ’ 

400 ' Her stilles SPRITE Mode 2's 


410 ’ farverne 
420 ' 

430 F0RA=BASE(13)-&H200 TO BASE(13) 
-1:VP0KEA,(A/3)M0D14+2:NEXT 
440 ’ 

450 ’ Ved tastetryk skiftes mode 
460 ' 

470 ZS=INPUTS<1);VDP(0)=2:VDP(5)=60 
480 ZS=INPUTS(1):VDP(0)=4:VDP(5)=63 
490 GOTO 470 



SORT & UV 10 


10 '************************** 
12 • * ^ 
13'* SORT & HVID * 

14 1 * * 

15 ’* BY JOHNNY B MUSIK ' * 

16 '* * 

23 *************************** 

24 '* * 

25'* SYNTAXEN * 

26 1 * * 

27 '* 1988 * 

28 ^ * 


30 '* . * 

31 ' * 01962 BYTES * 

32 '* * 

33 1 * MINIMUMSBEHOV * 

34 '* DISKSTATION * 

36 '* TASTATUR * 

37 '* * 


38 *************************** 

39 1 


iuu da iA JE ,F1,21, 00 , 20 , 01 , 00,18 

110 DATA CD,56,00,09 

120 FORI-&HDAOO TO &HDA0B 

130 READ A$:POKEI,VAL("&H"+A$) 

140 NEXT I 
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SORT g< HVID * GRAFIK FOR MSX *.*.*..* 



150 SCREENO:WIDTH40:LOCATE,,O:C0L0R4 
,4,1:KEYOFF 

160 PRINT "************************* 

***************n. 

170 PRINT "*** ' BLACK / WHI 

TE ***«*. 

180 PRINT "************************* 
*************** 

190 LOCATE 0,6 

200 PRINT "Dette Program farver dine 
skærm billederom til et Sort / Hvid 
billede så du f.exkan se hvordan et 
normalt printerbi 1 ledevi 1 komme til 
at se ud. PRINT 

210 PRINT "Indtast nu filnavnet på d 
et ønskede grafik billede." 

220 LOCATE 14,16 .-PRINT ". 

II 

230 C0L0R15 

240 LOCATE 14,16 .-LINE INPUT A$ 

250 ON ERROR GOTO 340 
260 DEFUSR-&HDA0O 
270 SCREEN2 
280 BLOAD A$,S 
290 X-USR(O) 

300 A$-INKEY$:IF A$-""THEN 300 

310 IF A$< >" " THEN RUN 

320 IF PEEK(&HDAO1)-&HF1 THEN POKE & 

HDA01,&H1F:COLOR,,15 ELSE POKE &HDA0 

1,&HF1:COLOR,,1 

330 GOTO 290 

340 SCREEN0:LOCATE 6,12:PRINT "Filen 
er ikke på Disketten" 

350 FORI-1TO 1000:NEXT:RUN 



GRAFIK TIL HSX 

7 0 ' ##*ww#*****#w****#w******** 


72 

' * 


# 

7 3 

' * 

G R A F 1 k 

* 

74 

' * 


* 

75 

' * 

Program /or fDSX 

* 

76 

' * 


* 

77 

' * 

Udvalgt: af: 


78 

' * 

Johnny B, Silkeborg 

* 

79 

' * 

* 

20 

' * 

God fornøjelse 

* 

27 

' * 

w 

22 

' * 


w 


23 ' ww*****)**#**#*****)***#*^*** 

24 ' 

?00 SCREENO:kEY0FF:CLEOR 

7 ?0 0NERR0RG0T0 320 

720 ONkEYGOSUBUl0:kEY(1 )0N 

7 30 CLS : PR I NT" 0=SLUT" : I NPUT" I A/DG I V 

ET TAL (0-7 )";P 

7 40 / FP=OTW£A/37 0 

7 50 I FP >70RP< 7 TH£A/7 30 

7 60 COLOR. 7 . 1 :SCR££A/2.0 

7 70 0A/ST0PG0SUB4 7 0 : ST0P0A/ 

780 DATA 255,255.255,255,255.255.25 
5,255 

7 A0 FOR l = 1T08 

200 R£ADA:A$=A«+CWR$(A) 

270 A/EXT I 

220 SPR ITE$(1) =A$ 

230 R=RA/D( -T i IT1£) 

240 FORB=0TO37 

250 C=/A/T(RA/D( 7 )*255+7 ) 

260 D=/A/T(RA/D( 7 )*192 + 7) 

270 E=INT( RA/D ( 7 )«75 + 7) 

280 0A/ PG0T0 350,360,340,370,380,39 

0,400 

290 NEXTB 

300 GOTO 240 

37 0 kEYON: COLOR 7 5,4,7:£A/D 
320 COLOR 7 5,4,7: PLPiY " ftC" :SCREENO:P 
RIA/T"F£TL : "£RR;"I DEL ";£RL 
330 kEYON:END 

340 PUTSPRITEB.(C,D),£,7/GOTO 290 
350 L!A/£(C.D)-(D,C) ,£; GOTO 290 
360 C/RCL£(C,D),£:GOTO 290 
370 PUTSPRlTEB, (C , D) ,£,7 :L! A/£(C , D )- 
(D.C) ,£:GOTO 290 

380 PUTSPRlTEB, (C,D).£,7:C/RCL£(C,D 
),£:GOTO 290 

390 CIRCLE(C.D) ,£:L INE(C ,D)-(D,C),£ 
.•GOTO 290 

400 PUTSPR ITEB,(C,D),E.1:LINE(C,D)- 
(D.C),£:CIRCL£(C,D) ,E:GOTO 290 
47 0 RUA/ 























■ ■■■■■■« NYE MEDLEMMER ■ 


SVI-105 Tegnebord + pr og. 

500,- 

Kr 

SVI-601 Super expander 

SVI-802 Centronie interface 

800,- 

Kr 

SVI-801 Disk controler 

SVI-902 256 K disk 

70 disk i boks, med prog. + 
Rense disk 

spil 

1500,- 

Kr 

Diverse bøger fra 

50, - 

Kr 

Orgi. spil på bånd fra 

15,- 

Kr 

Cartriges : 

JustWrite jr 

150, - 

Kr 

Music Mentor 

100, - 

Kr 

Flipper Slipper 

100, - 

Kr 

Super Cross Force 

100, - 

Kr 

Frantic Freddy 

100, - 

Kr ; 


Alt er i orginal emballage 

Sælges evt. samlet for 3500,- Kr 

Henvendelse : 

Uffe Bager Hansen 
Hørmarken 4 
8362 Mørning 
Tlf : 06-922497 



SALG 


SÆLGES 

3 stk. DATA-CARTRIDGE 4K for SONY 
NSX-computer sælges for Nkr.250,- 
samlet eller Nkr.lOO,- pr. stk. 
pluss postoppkrav.. 

Pris i Norge er kr. 250,- pr. stk. 
De er alle helt nye og ikke 
brukt. Ligger i originaleballage. 

Henvendelse: 

Tore Brønnum 
Nedre Silkestr« 6 
0375 01 so 3 
Tlf.: 02-520956 


— JK’iT' _ J^_ IP W-IP kuf klip kuf kuf klip kuf 
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■9f-*-** SVI BIB -sfr-jf-jfr-* 


X 


m 


Liste af programtitler 
i SVIBIB : 


□ S Q 


SVI BIB er KUN til SVI 318-328 

SVIBIBS’s POSTGIRONR. er: 

4077385 

Bestilling at programmer gøres pi 
postgiro hvorpå der skrives hvilke 
p r o g r arn rn e r d u. ø n s k e r , s arn t o m d u v i 1 
have disk eller bånd. 

Husk også at skrive din egen adr . 
tydeligt helst' BLQKEQfiSIåy ESo. 


PRISER- 

Bånd 

5.25" Disk 
Pris pr. p r o g ram 
Pris pr. programpakke 
Ud 1 i s t n i n g at p r o g r am 


25 kr 
25 kr- 
10kr 
15kr 
5kr 


Programpakkerne er lavet på den 
måde at rnan loader alle 
programmerne ind på en gang , og 
kan så vælge ved hjælp at en meny 
h v i 1 k e t p r o g r am rn a n ø n s k e r a t 1< ø r e 
deretter »kan rnan stoppe og vende 
tilbage til menyen ovs.ovs. 

HUsh når I bestiller programpakker 
at s k rive hvilk e n k a t a r o gi I 

ønsker det pågældende nr. tra. 

Programmerne bestilles hos: 

Per Underlien 
Rytterhusene 44 
2620 Albertslund 
GIRONR. 4077385 

Programmer der ønskes optaget i 
SVIBIB sker på samme adr. 

Det er jo sådan at vi NU GIVER 
2 bånd eller 
5 5.25" disk 

For- de programmer der optages i 
SVI BIB. 

Hi Isen Per- 


Nyttige programmer : 

Database , Editor , Hushold ,Matte, 
Mc scroll , Ramdis , Renter-eg , 
Rulleteks , Screen Rig , Sdump. rnc, 
Sorter , Sprite ed , Sprog , 

Tegner , Talkback , Taperut , Tips 
Kalender , Supertegn , Periode 

Spil : 

Aladdin , Bovla, Bjerg, Darts, 
Death, Diktator, Frans, Hell, 
Kalaha, Skyd nu, Oil 


Spi1 pakker : 


Nr. 1 
Nr .' 2 
Nr. 3 


Male , Pyramide 
Pusle , Attack 
Flight , Sur , 
Mons , Hopper , 
Moon , Mvre . S 


, Labyrant 
, Roulette 
War 
Star 


Moon , Myre , Slange 
Robot , Pengo , Snowbal1 
Danmark , Frogger 
Skyttepro , Lernona 


Musik pakker : 


Rock rn usi k 9 n u m r e 
Rock rnu s i k 9 n urn r e 
Musik 9 numre 

Lyd k i rn , Sound Kim , Orgel 


Andet pakker : 

Nr. i : Rio , Lys , Ghost , Børge 
Symtri , Grafik 



Kun til disk : 


Budgetpro. , Dbase i no.l , Grafen 
Tegnepro. , Te 1efonpro. 








KALAHA 

5 CLEAR5000 

10 0NST0PG0SUB1290:ST0P0N 

15 REM - 

20 REM 

25 Rfcn K-A-L-A-H-A 

30 REM 
35 REM 

40 REM Lars B. Olsen 

45 REM Orehoved 

50 REM Maj 19Q8 

55 REM - 

60 C0M=0:SA=0:SB=0 
65 DIMA(6):DJMB<6> 

70 LETY=1:CLICKQFF 

75 COLOR 11,8,9:SCREENO,O:LGCATE,, 
O 

80 letasum=o:letbsum=o 

85 LETU=0:LETX=0 

90 G0SUB570:’danske bogstaver 

95 GOTO 625: ’ spi 1 le-form 

100 LIN£(48,51)-<195,63), 1, BF 

105 PUTSPRITE11,(111,54),.0 

110 COLOR10:L0CATE50,55:PRINT" Sp 

i Her A ambo nr. " J : lå=INPUTÆ < 1) : 1 = 

VAL(I$> : PRINTI 

115 IFI<10RI>6THEN GOTO 110 

120 IFA(I)=0THENG0SUB190: GOTO 100 

125 LETX=A(I):LETC=0 

130 LETA (I) -O 

135 ONIGOTO 410,435,460,485,510,53 

140 LINE(48,51)-(195,63),1, BF 

145 PUTSPRITE11,(111,54),,0 

150 COLOR 10:L0CATE50,55:PRINT" S 

piller B ambo nr. ";:I$=INPUT$(1):I 

=VAL(1$):PRIMTI 

155 IFI<10RI>6THEN GOTO 150 

160 IFB(I)=0THEMG03UB190: GOTO 140 

165 LETX=B(I) 

170 LETC = i:LETB(I> =0 
175 ONIG0T0230,255,280,305,330,355 
180 GOTO 110 

185 LINE <48, 51)- (195,63),1,BF 

190 LINE(48,51)-(195,63),1,BF 

195 L0CATE55,55:PRINi"TOM AMBO":FOR 

0=OT0900:NEXT:LINE(48,51)-(195,63), 

1,BF:RETURN 

200 REM 

205 IFX=iANDB(1)=0ANDC=1THENLETBSU 
M=BSUM+X+A(6):LETX=0:LETA(6)=0 
210 IFX=OTHEN GOTO 875 
215 LETB(1)=B(1)+X/X 
220 LETX=X-1 

225 REM +-+-+-+-+-+-+-+-+-+-+-+-+- 

230 IFX=1ANDB(2)=0ANDC=iTHENLETBSU 

M-BSUM+X+A(5):LETX=0:LETA(5)=0 

235 IFX=0THEN GOTO 875 

240 LETB(2)=B(2)+X/X 

245 LETX=X-1 

250 REM 

255 IFX=1ANDB(3)=OANDC=1THENLETBSU 
M=BSUM+X+A(4):LETX=0:LETA(4)=0 
260 IFX=OTHEN GOTO 875 
265 LETB(3)=B(3)+X/X 
270 LETX=X-1 

275 REM +-+-+-+-+-+-+-+-+-+-+-+-+- 

280 IFX=1ANDB(4)=0ANDC=1THENLETBSU 

M=BSUM+X+A(3>:LETX=0:LETA(3)=0 

285 IFX=OTHEN GOTO 875 

290 LETB <4>=B(4)+X/X 

295 LETX=X-1 

300 REM 


305 IFX=1ANDB(5)=OANDC=1THENLETBSU 

M=BSUM+X+A(2):LETX=0:LETA(2)=0 

310 IFX=OTHEN GOTO 875 

315 LETB <5)=B(5)+X/X 

320 LETX=X-1 

325 REM 

330 IFX=1ANDB(6)=0ANDC=1THENLETBSU 
M=BSUM+X +A(1):LETX=0:LETA <1)=0 
335 IFX=0THEN GOTO 875 
340 LETB(6)=B<6 >+X/X 
345 LETX=X-1 

350 REM +-+-+-+-+-+-+-+-+-+-+-+-+- 

355 IFX=1ANDC=1THENLETBSUM=BSUM+X: 

LETX=0:LETC=0 

360 IFX=OTHEN GOTO 875 

365 IFC=OTHEN GOTO 385 

370 LETBSUM=BSUM+X/X 

375 LETX=X-1 

380 REM +-+-+-+-+-+-+-+-+-+-+-+-+- 
385 IFX=1ANDA(1)=0ANDC=0THENLETASU 
M=ASUM+X+B(6):LETX=0:LETB(6)=0 
390 IFX=OTHEN GOTO 875 
395 LETA(1)=A(1)+X/X 
400 LETX=X-1 

405 REM +-+-+-+-+-+-+-+-+“+-+-+-+- 

410 IFX=1 ANDA < 2)=OANDC=OTHENLETASUM 

=ASUM + X + B(5):LETX=0:LETB <5)=0 

415 IFX=OTHEN GOTO 875 

420 LETA(2)=A < 2)+X/X 

425 LETX=X-i 

430 REM + — + — -(—h —+ — + — + — + — + — + — + — + — + — 

435 IFX=1ANDA(3)=OANDC=OTHENLETASUM 

=ASUM+X+B(4):LETX=0:LETB(4)=0 

440 IFX=OTHEN GOTO 875 

445 LETA(3)=A < 3)+X/X 

450 LETX=X-1 

455 REM +-+-+-+-+-+-+-+-+-+-+-+-+- 

460 IFX=1ANDA(4)=OANDC=OTHENLETASUM 

=ASUM+X+B(3):LETX=0:LETB(3)=0 

465 IFX=OTHEN GOTO 875 

470 LETA(4)=A(4)+X/X 

475 LETX=X-i 

480 REM 

485 IFX=1 ANDA(5)=OANDC=OTHENLETASUM 

=ASUM+X+B(2):LETX=0:LETB<2)=0 

490 IFX=OTHEN GOTO 875 

495 LETA(5)=A(5)+X/X 

500 LETX=X-i 

505 REM +-+-+-+-+-+-+-+-+-+-+-+-+- 
510 IFX=1ANDA(6)=OANDC=OTHENLETASUM 
=ASUM + X + B(1):LETX=0:LETB(1)=0 
515 IFX=OTHEN GOTO 875 
520 LETA(6)=A(6)+X/X 
525 LETX=X-1 

530 REM +-+-+-+-+-+-+-+-+-+-+-+-+- 

535 IFX=1ANDC=0THENLETASUM=ASUM+X:L 

ETX=0:LETC=1 

540 IFX=0THEN GOTO 875 

545 IFC=1THEN GOTO 205 

550 LETASUM=ASUM + X/X 

555 LETX=X-1 

560 GOTO 205 

565 REM+-+-+-+-+-+-+-+-+-+-+-+-+-+- 
+ - 

570 REM danske bogstaver 
575 RESTORE 
580 SCREEN1,O 

585 DATA120,160,160,240,160,160,184 

$90 DATAS,112,152,168,168,200,112, 1 
28 

595 DATA32.0.32,80,136,248,136, 

600 DATAO,O.208,40,120,160,216, 

605 DATA32,0,112.8,120,136,120, 

610 DATAO,8,112,152,168,200,112,128 
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AF SPILLE METODE 


615 REST0RE600 
620 RETURN 
625 REM VALG 
630 G0SUB1205 
635 IFSA+SB+C0=0THEN640ELSE 
5 

640 
reg 
645 
r n 
650 


GOTO 64 


L0CATE48,68:PRINT"Onskes spille 
ler ( j/n) 1 

L0CATE48,80:PRINT"Spi 1 ler A ha 
}SAj“ point" 

L0CATE48.92:PRINT"Spi 11er B ha 
r " ,* SB; " poi nt" 

655 L0CATE48,104:PRINT"Camputer ha 
r ”;CO;” point":LOCATE,64 
660 IFSA+SB+C0=0THEN665ÉLSEF0RT=0T0 
600:NEXT:N*= ,, N" : GOTO 670 
665 N*=INKEY* 

670 IFN*=""THEN665 

675 IFM*= “n" 0RN*= 11 N"THEM GOTO 795 

680 F0RJ=0T07:READH: V*=V*+CHR*<H> :S 

PRITE*(1)=V*:NEXT 

685 F0RJ=0T07:READH:S*=S*+CHR*<H):S 

prite*<3)=s*:next 

690 F0RJ=0T07;READH:K*=K*+CHR*(H):S 

PRITE*(2)=K$:NEXT 

695 CLS:L0CATE4, iO’.PRINT" 

-KALAHA- 

spilles af 2 personer (A 8 c B) ell 
er computer (Al mod en spille 

r (B)-. Der v lges 3-6 kug 

ler i hver a-f de" 

700 PUTSPRITEi,(54,33), 10,1 
705 PRINT" sm nuller (Ambo)-Det 
g Ider om at samle -flest k 

ugler i de store huller (Kala 

710 PUTSPRITE2,(36,41).10.3 
715 PUTSPRITE3,(162,415.l6,l 
720 PRINT". Man v lger Ambo nr.<1-6 
), ender sidste kugle i ens 

egen Kalaha giver det en extr 

a tur ender sidste kugle i e 

n tom Ambo p "; 

725 PUTSPRI?E4,( 

3 


1 gge 


725 PUTSPRITE4.(114.57).10.1 
730 PUTSPRITE10, (isi-81J,l6 ' 

735 PRINT"egen side li 1 - 
s modspillerens Ambo over-for,i 
ens egen Kalaha." 

740 PUTSPRITE5,(30,89),10,1 
745 PRINT" Spillet slugter, n r 
en banehalvdel er tom.Tilove 

rsblevne kugler hos mod- parte 

n till gges hans Kalaha. 

Spilleren med de "; 

750 PUTSPRITE 6 , <132,105),10,3 
755 PUTSPRITE7,(90,121),lo,1 
760 PRINT"flsste kugler har 
vundet . 


God -forn jelse" 
765 PUTSPRITE8,(90,153),10,2 
770 PRINT:PRINT:PRiNT" Tryk e 

n tast -for at komme videre." 

775 A*=INKEY* 

780 IFA*< >""THENGOTO 785:ELSE GOTO 
775 

785 G0SUB1205 
790 GOTO 800 

795 LINE(40,50)-(200,150),8,BF 

800 L0CATE57,54:PRINT"Indtast spil 

leform" 

805 L0CATE57, 66 :PRINT"2 spillere . 
. tast 0 " 

810 L0CATE57,78:PRINT"Mod computer 
(let)... tast 1 " 


815 L0CATE57,90:PRINT"Mod computer 
(sv r).. tast 2" 

820 REST0RE600:F0RG=OTO7:READH:V*=V 

*+chr*<h>:next:sprite*(1)=v*: 

825 PUTSPRITEI.(153,89),10,1 
830 L0CATE57,112:PRlNT"Spii leform 

K,-rAli SP * = 1 NPUT* (1) : SPM=VAL (SP*) : PR I 
NTSPM 

835 IFSPM<00RSPM>2THEN830 

840 L0CATE57,124:PRINT"Indtast ant 

al kugler (3-6)" 

845 U0CATE57,136:PRINT"Antal kugler 
“5:KUG*=INPUT*(1):KUG=VAL(KUG*):P 
RINTKUG:F0RP=1T0200:NEXT 
850 IFKUG<30RKUG>6THEN GOTO 845 

1106: UETA (N) =KUG: LETB < N) =K 

UG l NfcXT 

860 IFSPM=OTHENLINE(40,50)-(240,170 
>,8,BF:PyTSPR IT El,<153.89),8,0:&0SU 
Bi245 :G0SUB890: g6to lio 
865 IFSPM=10RSPM=2THENLINE(40,50)-( 
§3. EF : PUTSPRITEI,(153?89) , 8 
,0:G0SUB1245:G0SUB890: GOTO 150 
870 GOTO 625 

875 REM**#** udskrivning af tal ### 

§?° >-OANDB(2)=0ANDB(3)=0ANDB( 

4)=0ANDB(5)=0ANDB(6)=0THEN GOTO 965 
885 IFA <1)=0ANDA(2)=0ANDA(3)=0ANDA( 
4)=0ANDA(5)=0ANDA(6)=0THEN GOTO 100 

890 LETM=0 

895 F0RN=208T048STEP-32 

900 LETM=M+1:BEEP:LINE(N-9,90)-(N+8 

l * BF: LOC ATEN-10,92: PR INTA (M) 

905 BEEP:LINE(50,120)-(74.135),8,BF 
:L0CATE50.125:PRlNTASUM:LåTM=0 
910 F0RN=48T0208STEP32 
915 LETM=M+1:BEEP:LINE(N-9,155)-(N+ 
8j 165^8,BF: L0CATEM-10, 15^:PRINTB( 

920 BEEP:LINE(180,120)-(204,135) ,8, 
BF:L0CATE180,125:PRINTBSUM 
925 L0CATE5,20 

930 IFU=1THENL0CATE100,115: COLOR 1 
if!5J NT “? r ? skes nyt" :L0CATE110, 125:PR 
I NT sp i 1 " :L0CATE85, lSS^RINT* tryk 
en tast."ELSE GOTO 940 
935 A*=INKEY*:IFA*=""THEN GOTO 935E 
LSE GOTO 70 

940 IFY=1THENLETY=0:RETURN 

945 IFSPM=1ANDC=1THEN GOTO 1040 

950 IFSPM=2ANDC=1 THEN GOTO 1095 

955 IFC=1THEN GOTO 100 

960 IFC=0THEN GOTO 140 

965 LETASUM=ASUM+A(1)+A(2)+A(3)+A(4 

) +A (5) +A (6) 

970 F0RN=1T06:LETA(N)=0:NEXTN 
975 IFASUM>BSUMTHEN GOTO 1020 
980 LINE(48,51)-(195,63),14,BF 
985 PUTSPRITE11,(111,54) ,0 
990 COLOR 1:L0CATE5O,55:rRINT"Spi1 
ler B vinder”:SB=SB+1 
995 LETU=1 
1000 GOTO 890 

1005 LETBSUM=BSUM+B(1)+B(2)+B(3)+B( 
4)+B(5)+B(6) 

1010 F0RN=1T06:LETB(N)=0:NEXTN 
1015 IFBSUM>ASUMTHEN GOTO 980 
1020 IFSPM=0THENPUTSPRITE11,(111,54 
>,,0:LINE<48,51)-(195,63),14.BF: CO 
LOR 1:LOCATESO,55:PRINT"Spi lier A v 
inder":SA=SA+1 

1025 IFSPM=10RSPM=2THENLINE(48,51)- 
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(195,63),14,BF:PUTSPRITE11 ,(111,54) 
,,0:C0L0R1:L0CATE60,55:PRINT“COMPUT 
ER VINDER":C0=C0+1 
1030 LETU«1 
1035 GOTO 890 

1040 REM#-** COMPUTER SPILLER SOM A 
1045 LET1=1NT(RND(1)*6)+1 
1050 IFA(I)=OTHEN GOTO 1045 
1055 LINE(48,51)-(195,63),11,BF 
1060 PUTSPRltEll,(lll!54) .0 
1065 COLOR 1 :L0CATE50,55:PRINT"Can> 
puter v lger ambo";I 
1070 SPRITE*(1)=!CHR*(0) +CHR4 (O) +CHR 
4(208)+CHR4(40)+CHR4<120)+CHR4<160) 
+CHR4(216)+CHR4(O) 

1075 PUTSPRITE11,(111,54),1,1 
1080 FORP=1T0100:NEXTP 
1085 COLOR 10 
1090 GOTO 120 

1095 IFA(6)=1THENLETI=6:GOTO 1055 
1100 IFA(5)=2THENLETI=5:GOTO 1055 
1105 IFA(4)=3THENLETI=4:G0T0 1055 
1110 IFA(3)=4THENLETI=3:GOTO 1055 
1115 IFA(2)=5THENLETI=2:GOTO 1055 
1120 IFA<l)=6THENLETI=l:GOTO 1055 
1125 IFA(1)=1ANDA(2)=0THENLETI=1:GO 
TO 1055 

1130 IFA <1)=2ANDA(3)=0THENLETI=1:GO 
TO 1055 

)=3ANDA(4)=0THENLETI=1 


GO 


1135 IFA( 

TO 1055 

11401FA(1)=4ANDA(5)=0THENLETI=1:GO 
TO 1055 

1145 IFA(1)=5ANDA(6)=0THENLETI=1:GO 
TO 1055 

1150 IFA(2)=1ANDA(3)=OTHENLETI - 2 :GO 
TO 1055 

1155 IFA(2)=2ANDA < 4)=OTHENLETI=2:GO 
TO 1055 

1160 IFA(2)=3ANDA(5)=0THENLETI=2:GO 
TO 1055 

1165 IFA < 2)=4ANDA< 6)=OTHENLETI=2:GO 
TO 1055 

1170 IFA(3)=1AMDA(4)=0THENLETI=3:GO 
TO 1055 

1175 IFA(3)=2ANDA(5)=0THENLETI=3: GO 
TO 1055 

1180 IFA(3)=3AMDA(6)=0THENLETI=3:GO 
TO 1055 

1185 IFA(4)=1ANDA(5)=OTHENLETI=4:GO 
TO 1055 

1190 IFA(4)=2ANDA(6)-OTHENLETI=4:GO 
TO 1055 

1195 IFA(5)=1ANDA(6)=0THENLETI=5: GO 

TO 1055 

1200 G0T01040 

1205 REM 

1210 COLOR14:SCREEN1 

1215 PRINT:PRINTSPC(10)CHR4(165)SPC 

(7)CHR4(165)SPC(5)CHR4(165) 

1220 PRINTSPC(10)CHR4(165)SPC(1)CHR 
4(184)SPC(2)CHR4(179)CHR4(179)CHR4( 
184)CHR4(165)SPC(2)CHR4(179)CHR4(17 
9)CHR4(184)CHR4(165)SPC <4)CHR4(179) 
CHR4(179)CHR4(184) 

1225 PRINTSPC(10)CHR4(165)CHR4(192) 
SPC(5)CHR4(167)CHR4(165)SPC(4)CHR4 < 
167)CHR4(165)CHR4(161)CHR4(161)CHR4 
(167)SPC(3)CHR4(167) 

1230 PRINTSPC(10)CHR4(165)CHR4(166) 
SPC(2)CHR4(165)CHR4(161)CHR4(161)CH 
R*(1 6 /) CHR4(165)CHR4(32)CHR4(165)CH 
R4(161)CHR4(161)CHR4(167)CHR4(165)S 
PC(2)CHR4(167)CHR4 <165)CHR4(161)CHR 
4(161)CHR4(167) 


1235 PRINTSPC(10)CHR4(165)CHR4(32)C 
HR4(166)SPC(1)CHR4(165)CHR4(179)CHR 
4(179)CHR4(167)CHR4(165)CHR4(32)CHR 
4(165)CHR4(179)CHR4(179)CHR4(167)CH 
R4(165)SPC(2)CHR4(167)CHR4(165)CHR4 
(179)CHR4(179)CHR4(167) 

1240 COLOR 10:RETURN 
1245 REM 
1250 X=1 


1255 F0RN=48T0208STEP32:CIRCLE(N,16 
0|j11^1jLOCATEN-8,180:PRINT“B“5 X: X= 

1260 FORN=62T0192STEP130:CIRCLE(N,1 
27),23.1,,,4/5:NEXT 
1265 L0CATE58, 112: PRINT" A" ’.LOCATEIS 
8,112:PRINT“B" 

1270 X=6 


1275 FORN=48T0208STEP32:CIRCLE(N* 95 
),11,1:L0CATEN-8,70:PRINT"A U JX:X=X- 
1: NEXT 

1280 LINE<48,51)-(195,63),1,BF 
1285 RETURN ’ ’ 

1290 SCREENO,1:C0L0R15,4,5:LOCATE,, 



L01ETEKST 

til nsn I I, 

5 'LOBETEXT TIL MSX-II 
7 1 

10 GOSUB 60000 

20 SCREEN O:WIDTH 80:COLOR 1,77 
30 INPUT "Text :”;LA$ 

40 CLS:GOSUB 61000:GOTO 40 
50 1 

60 ' ******* PROGRAM-SLUT ********** 
* * 

70 ' 

60000 'SYNTAXEN 1988 
60010 'FUNDET AF JOHNNY B 
60070 FOR Z1 - &HD800 TO &HD8A4 STEP 
8 

60080 P-0:FOR Z2-Z1 TO Z1+7:READ Z3$ 
:Z3-VAL("&H"+Z3$):P-P+Z3:P0KE Z2,Z3: 
NEXT Z2 

60090 READ Z3$:IF P<>VAL("&H"+Z3$) T 
HEN PRINT "ERROR in DATAs":END 
60100 NEXT Z1:DEFUSR1-&HD800:RETURN 
60110 DATA CD,1A,D8,3A,AO,D9,47,ED,4 
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60120 DATA 5B,Al,D9,1A,C5,D5,CD,1A,4 
70 

60130 DATA 08,00,51,08,01,01,13,10,4 
83 

60140 DATA F2,09,F5,05,D5,E5,21,DO,6 
20 

60150 DATA 02,06,08,05,01,4F,00,11,1 
36 

60160 DATA 00,D9,23,D5,E5,CD,59,00,3 
DC 

60170 DATA El,D1,2B,EB,01,4F,00,D5,3 
ED 

60180 DATA E5,CD,50,00,El,Dl,EB,11,4 
BC 

60190 DATA 4F,00,19,3E,20,CD,4D,00,1 
E0 

60200 DATA 23,Cl,10,D7,El,Dl,Cl,F1,5 
2F 

60210 DATA 09,CD,5B,D8,CD,66,D8„CD,5 
Al 

60220 DATA 76,D8,C9,11,08,00,21,00,2 
51 

60230 DATA 10,47,19,10,FD,C9,06,08,2 
54 

60240 DATA 11,80,D9,E5,CD,4A,00,12,3 
78 

60250 DATA 23,13,10,F8,El,C9,06,06,2 
F4 

60260 DATA C5,CD,1A,D8,CD,83,D8,Cl,5 
6D 

60270 DATA 10,F6,C9,21,1F,03,11,80,2 
A3 

60280 DATA D9,06,08,1A,CB,07,12,30,2 
15 

60290 DATA 04,OE,C8,18,02,OE,20,79,1 
9B 

60300 DATA CD,4D,00,D5,11,50,00,19,2 
69 

60310 DATA Dl,13,10,E7,C9,8A,AB,28,4 
01 

61000 ZZ-VARPTR(LA$):FOR ZY»0 TO 2:P 
OKE &HD9A0+ZY,PEEK(ZZ+ZY):NEXT:A-USR 
1(0):DEFUSR-&HD81A:F0R ZZ-1 TO 80:A- 
USR(O):NEXT:RETURN 



BREV FRA JOHAN 

Breve fra Johan i Lidkoping 
IBM PC KEYBOARD 


I Syntax nummer 3/88 stod det lite 
om hur man kan lasa av tangentbor¬ 
det på en PC. Jag ska nu gå Igenom 
ett helt annat satt. 

Som de fiesta kanner till kan man 
lasa av funktionstangenterna med 
foljande instruktioner: 

SVI 318/328 & MSX: 

10 ON KEY GOSUB 100,200,300 
20 FOR A=1 TO 3:KEY(A)ON:NEXT A 
30 GOTO 30 

100 PRINT'Tl":RETURN 
200 PRINT"F2" .-RETURN 
300 PRINT"F3" .-RETURN 

PC; 

10 ON KEY(1) GOSUB 100 

20 ON KEY(2) GOSUB 200 

30 ON KEY(3) GOSUB 300 

40 FOR A=1 TO 3.• KEY(A)ON:NEXT A 

50 GOTO 50 

100 PRINT "Fl":RETURN 
200 PRINT "F2" .-RETURN 
300 PRINT "F3".-RETURN 

Denna metod har den fordelen att 
datorn reagerar på en 

tangenttryckning oavsett vad datorn 
holl på med innan. (Jamfor med 
INPUTd och INKEYd.) 

Samma metod kan vi anvanda for att 
låsa av pi 1tangenterna (dock endast 
på PC). 

PC: 

10 ON KEY(11) GOSUB 100 

20 ON KEY(12) GOSUB 200 

30 ON KEY(13) GOSUB 300 

40 ON KEY(14) GOSUB 400 

50 FOR A=11 TO 14:KEY(A)ON:NEXT A 

60 GOTO 60 

100 PRINT "UPP":RETURN 
200 PRINT "NER" .-RETURN 
300 PRINT "HoGER" .-RETURN 
400 PRINT "VANSTER":RETURN 
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(Jag hoppas ni forstått att ni i 
ovanstående program ska trycka på 
funktionstangenterna respektive 
pi 1tangenterna.) 

Nu år det så att en PC har hela 6 
tangentkombinationer som kan pro— 
grammeras enligt foljande metod: 


tangentnummer, i 11 exempel har NUM 
LOCK nummer 69 om den råknas som 
tangent, och inte som shifttangent. 


Jag rekommenderar 
tillbaka i Syntax 
sidorna 6 och 20. 


att ni tittar 
nummer 3/88 på 


10 KEY 15,CHRd(4)+CHRG(70) 

20 KEY 16 , CHRG (4+32 ) -t-CHRn (70 ) 

30 KEY 17,CHRd(4+64)+CHRG(70) 

40 KEY 18,CHRd(4+32+64)+CHRG(70) 
50 KEY 19,CHRn(4+1)+CHRG(70) 

60 KEY 20,CHRP(4+1+64)+CHRQ(70) 

70 FORA= 15T02 0 ONKEY (A) G05UB100- 
KEY(A)ON:NEXT A 
80 GOTO 80' 

100 PRINT " CTRL+BREAKRETURN 


Dette år ett ganska såkert stopp- 
skydd, då de enda kombinationern; 

^ an sto PPa programmet åi 
CTRL+SHI FT-f BREAK med NUM LOCK lys- 
ånde, och samma kombination mec 
BADE NUM LOCK och CAPSLOCK lysande 
Annu såkrare bl ir skyddet om rac 
100 endast består av return. 

På det hår såttet kan du också gora 
CTRL+ALT+DEL-skydd och 1iknande 
historier. Nu ska jag nårmare 
forklara hur detta går till. 


Forst måste tangentkombinationerna 
definieras med foljande instruktion 

KEY X,CHRn(shiftnr)+CHRG(tangentnr) 

Hår fb1 jer existerande shifttangen- 
ters koder: 

1 = SHIFT 
4 = CTRL 
8 = ALT 
32 = NUM LOCK 
64 = CAPS LOCK 

Tangenternas nummer får inte plats 
hår, men två smakprov år ESC (1) 
och SCROLL LOCK/BREAK (nummer 70) 

§friffeåFhå hik å@@autom 


Observera att ni i många program 
bor anvånda instruktionerna KEY(x) 
OFF och KEY(x)STOP.for att undvika 
att en gammal rutin råkar såttas 
igång senare i programmet. 

Detta år ganska avancerat, men om 
du tar hjålp av dina manualer 
(samt liga) kan du nog snart anvånda 
det i dina egna. program. Var dock 
noga med att programmet ska fungera 
riktigt AVEN om Caps LOCK råkar 
vara pås1 agen. . . 

0 Q o- 0 - 0 - 

Några små tips... 

l.Hår år en liten lista over CTRL■s 
funktioner. Materialet år delvis 
hamtat ur den engelska manualen til 
SVI 728. 

CTRL+B Hopp ett ord bakåt. 

CTRL-t-C Stopp vid inmatning. 

CTRL+E Rensa från markoren. 

CTRL+F Hopp ett ord framåt 
CTRL+G Beep—ljyd. 

CTRL+H BACK SPACE 
CTRL+I TABULATOR 
CTRL+J LINE FEED 
CTRL+K HOME 
CTRL+L CLS 
CTRL+M ENTER 

CTRL+N Hopp till radslut. 

CTRL+O "Explosion" på PC. 

CTRL+R INSERT 

CTRL+T Key on/off på PC. 

CTRL+U Rensa rad. 

CTRL+X SELECT 

;; en SVI 318/328 har 

tangenv. "kandet en egen kontrol 1 — 
instrukt i. På en MSX sker detta 
dock på t jande vis: 











BREV FRA JOHAN 


SV-I-318/328 MSX 
CLICK OFF SCREEN ,,0 

CLICK ON SCREEN ,,1 

3. På sidan 31 i Syntax nummer 4 
från i år, påstås det att man kan 
spara en fil i Ascii-format med 
kommandot CSAVE"namn",A. Detta ar 
dock fel, eftersom CSAVE/CLOAD inte 
kan hantera Ascii filer. Gor i 
stål let så hår: 

(Kassettstation) SAVE"CAS:namn" 
(diskettstation) SAVE"namn:",A 

For att ladda, skriv: 

(kassettstation) L0AD"CAS:" 
(diskettstation) L0AD"namn" 

-o-o-o-o---o-—o- 

Har fol jer några tips och ideer. 

1. Har du skrivit in Johnny B:s 
program med musik och grafik som 
fanns i Syntax nummer 2 från i år ? 
Prova då att skriva in dessa rader: 

105 SOUND 6,&b111000 
2050 ed(3)="" 

2145 FOR Z-l to 2000:NEXT Z 

2150 PLAY"T180S1M7000","T180S3M700" 

,"T180S11M2700" 

2155 SOUND 6,3 .-SOUND 7,&B101010 

Radera raderna 2260 och 2300. Prova 
också med att åndra siffrorna som 
står efter S och M i PLAY-kommandot 
Den andra låten har nu trumljyd. 

2. Har du skrivit in det forstå 
programmet på Svenska sidan som 
fanns i SYNTAX nummer 4 ? 

Om du har en MSX-dator lår det inte 
fungera ordentligt om du inte 
åndrar portnumret &.H81 till &h99. 

3. Kop THE MSX RED BOOK om du vi 11 
veta mer om din dators processorer 
och RAM- och RAM-minna. 

Det som står i punkt 5 år håmtat 
från sidorna 54 och 231 i den 
boken. 


4. Om du har en SVI 728 

rekommenderar jag att du studerar 
sidorna 201-202 i din ENGELSKA 
manual. Dår finns instriktionernas 
råtta syntax, genomgång av PRINT 
USING och tangentkoder bl.a. 
SELECT-24, ESC=27, ENTER=13, 

DEL=127 o.s.v. 

5. Som ni såkert vet kan al la 
tangenter låsas av med INPUTn(l) 
och INKEYn, utom sex stycken. De 
heter SHIFT, CTRL, GRAPH, CODE, 
STOP och CAPS LOCK. 

Detta kan losas så hår: 

10 7PEEK (&.HFBE0) , BINd (PEEK (&HFBE0) ) 
.-GOTO 10 

Kor programmet och tryck ner någon 
av ovan nåmda tangenter. Så hår 
svarar datorn: 

255- 1=254 for SHIFT 
255- 2=253 for CTRL 
255- 4=251 for GRAPH 
255- 8=247 for CAPS LOCK 
255-16=239 for CODE 

Observera vad som hånder med det 
binåra talet. Tryck ner SHIFT och 
CTRL samtidigt. Vad hånder? 

Jo, datorn svarer 255-1-2=252. 
Enke 11 va'? 

Om du vi 11 låsa av STOP (ej 
CTRL+STOP) måste du gå till våga på 
ett annat sått. Skriv in det hår 
programmet: 

10 POKE &HFBB1,1:REM stånger av 
vanlig STOP-funktion. 

20 ?peek(&hfbel),binb(peek(&hfbel)) 
:goto 20 

Om du nu trycker ner STOP svarar 
datorn 255-16=239. 

Observera att rad 10 år obligato¬ 
risk. 

Vi takker Johan for hans indlåg. 
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SY I 328 TI PS 

Gem Funktionstasterne som en BLOAD 
fil så er det simplere og hurtigere 
at definere dem. 

SVI328: 

BSAVE'TNKl ", &HFA1E. &HFABD, &H3B95 


MSX: 

BSAVE'TNKl ", &hF87F, &HF91E, &HC9 

Bemark RUN adressen, det er ROM- 
Rutmen FNKSB der viser Funktions¬ 
tasterne hvis den må. 

For at load'e sine funktionstaster 
skriver du bare: 


den 'Logisk' med “format" i Basic. 


I "format" skal du også andre lidt 
for at kunne bruge Track 40. 

I linie 360 står der: 

360 LSET Ab=StnngH(3, 254) -hStringb( 
1 7, 255) +chr&(254) +string£t(19, 255) 
Dette reserverer de 3 fors te Tracks 
til SYSTEM’et. 17 Tracks til alm 
brug, 1 Track reserveret til Direc¬ 
tory & 19 Tracks til alm. brug. 


Du kan så andre den sidste STRINGb 
til : StringJ7(20,255) og der er 
plads til Track 40 (0-40= 41 Track) 
Vil du have 2 Tracks mere kan du 
også få det men på bekostning af 
SYSTEM'et. 


BLOAD "FNK1 ",R 

For SVI-328 ejere med 40 Tracks 
Diskdrev er her lidt info om for¬ 
materingsprogrammet "svfrmt". 


360LSETa.b=chrb (254) +String£f (19, 255) 
-hChrN(254) -hStringb(20, 255) 

Track 0 har et specielt format, 
nemlig 18 sectorer på 128 Bytes, og 
dette kan man ikke gemme programmer 


Programmet ligger på adresserne 
C400h - D500h og det er en god ide 
at skrive folgende Clear for man 
Bloader programmet. 

Clear 200,&hC3FF 
Bload "svfrmt ", r 

"svfrmt " korer ikke sarligt godt 
sammen med 80 tegns-kortet så hvis 
du er den lykkelige ejer af et 
sådan skal du for at bruge "svfrmt" 
skifte over til almindelig 40 tegn. 

På adressen C4E7h ligger en var. 
der fortaller programmet hvor mange 
Tracks som skal formateres på disk¬ 
etten. 

Der er på en alm. diskette plads 
til 41 Tracks uden at der opstår 
fejl' på den, denne mulighed vil vi 
da ikke gå fra os så prov at poke: 

Poke&HC4E7, 41 :Defusr=&hC400 
A=usr(0) 

Når den Fysiske formatering er 
fårdig skal man jo også formatere 


Skri v : 

Print DSKF(l) + <ENTER> 

38 Tracks har du at lege med. 

Her er et par af mine private High- 
Scores som du jo kan prove at slå. 

Punchy 138.296 Points 

Super Cross Force 5.888000 (39 liv) 

Spectron 9660 

NINJA 53.800 

Super Cross Force spillede jeg i 10 
timer på en kedelig regnfuld Lordag 

morgen-formiddag-eftermiddag-aften 

da pludselig computeren gik ned på 
grund af hedeslag. På dette tids¬ 
punkt havde jeg 39 ekstra liv, tank 
engang at jeg har måtte kampe mig 
igennem 4 * 39 baner for at opnå 

disse. 

SIDEN DEN LoRDAG HAR 
JEG ALDRIG SPILLET 
DET SPIL. 












APROPO FORSIDEN SETBOTTOM 


APROPO FORS I OEM 

De -fleste af jer har jo nok set at 
bladets forside har været en tu.r 
hos plastik-ki rugen og fået 
strammet ansigtstrækkene op. 

Den nuværende fors i de—ramme er nok 
det færdige resultat efter et par 
forsøg i starten af året. 

Indholdet i rammen varierer fra 
nummer til nummer, vi er så heldige 
at vi fra den 'verdensberømte' 
norske tegner 'GRIFFER’ har 
modtaget en stak tegninger der alle 
er relevante med hensyn til Compu¬ 
tere og specielt SVI—300 Serien og 
MSX. Disse tegninger bliver bragt i 
store og små udgaver rundt omkring 
i bladet sammen med andre tegninger 
fra vores ’bi 1 led-arki v’- der bla. 
udgør tegninger fra PC—programmet 
'FONTASY’ der er virkeligt stærkt. 

Vores billedarkiv er desvære ved 
at være tyndslidt og i har jo også 
snart set dem alle. Derfor ser vi 
meget gerne at folk sammen med evt. 
artikler og programmer indsender 
noget 'RELEVANT' udfyldningsmate¬ 
riale der 1 i'som underbygger og 
holder siderne oppe, Ikk’! 

Som i kvikke læsere nok også har 
bemærket rundt omkring, er det ikke 
alle listninger der står helt 
tydeligt frem når det har været hos 
trykkeren. Dette fænomen skyldes 
alt for ofte nedslidte farvebånd, 
men selve trykkeprocessen giver 
også et vis 'svækning' af det der 
ellers hjemme hos os så pænt og 
tydeligt (men måske lidt tyndt) ud. 

Derfor: Alt materiale der skal 

DIREKTE i bladet bedes skrives ud 
med enten nye farvebånd eller også 
i dobbelt-strike eller fremhævet 
(eller begge to ting samtidigt som 
denne tekst er det). 

Skitser o.lign. skal være med 
tykke streger for at det kan ses i 
de n færd i ge u dga ve. 


SETBOTTOM 

Undertiden kan det være en fordel 
lyfte Basic Bunden, altså start- 
adressen for Basic programmer. 

Når man gør dette kan man have 
nogen små MC—rutiner liggende ne¬ 
denunder Basicprogrammerne. 

Denne opgave kan løses med et par 
Pokes men jeg syntes det er bedre 
og nemmere at bruge programmet som 
jeg viser om lidt. 

10 ' PROGRAMNAVN: Setbottom 
20 ’ MASKIN TYPE: MSX 
SO ' FORMÅL : At lyfte Basic bunden 
40 ’ så der er plads til 

SO ' små MC—kode rutiner. 

60 ' Programmør : Henrik G 
70 ’ (c) Syntaxen 1988 

80 Cis 

90 POKE &-HFCAB, 1 

100 INPUT"Hvor ønsker du ’BOTTOM’( 
HEX)";A$ 

110 If A$<”8000" or A$>"EOOO" Then 
Print"Så stor må den ikke være. 
": Print" Du skal angive en adr. 
fra 8000 — E000":Goto 100 
120 Pr int"Ny Basic 'Battom' er=";A$ 
ISO Q1=VAL("S<H"+A$) 

140 BH=Q1 0 256 

150 BL=Q1 Mod 256 

160 Poke &hFC48,BL :' Bottam 

170 Poke &hFC49,256+BH 

180 Poke &hF676,l+BL : ’ TXTTAB 

190 Poke &hF677,256+BH 

200 Poke Q1,0:Poke Ql+1,O 

210 Cis:Print"Basic-Bund =";A$ 

220 /Vew 

Lidt fork 1 aring: 

Linie 90 : Sætter Caps Lock on 
Linie 120: Ex. På dårlig programme¬ 
ring da denne print slettes i 
1 i nie 210 om ca 1/10 sec 
Linie 140: '0' er 'Backsiash' der 

jo er Hel talsdi vi dering 
Linie 170: BH er negativ og derfor 
skal den gøres positiv 
på denne måde. 

Linie 180: TXTTAB skal være lig 
<BOTTOM> +1 

Linie 200: Første Byte SKAL være 0 


Tak fra REDAKTIONEN. 


Henrik G 








FORBEHOLDT POSTVÆSENET 


HVILKE ANDRE PROGRAMMERINGS SPROG 
FINDES DER TIL SVI328: 

Dette var et spørgsmål på et GIRO 
kort og til det kan vi svare: 

Man skal over og køre i CP/M for 
at få andre programmerings sprog 
til sin SVI-328. 

At køre CP/M på SVI-328 kræver: 

Expanderboks (Ikke den lille SV602) 

1 eller 2 Diskettestationer 
1 Disk-Controller SVI-801 
(1 80 tegnskort SVI-806) 

80 tegnskort er sat i parentes 
fordi man godt kan køre CP/M uden 
men det er faktisk et 'MUST' at 
have dette kort for at få doget som 
helst ud af det. (De fleste 
programmer bruger nemlig de 80 tgn) 

Her er så en liste over de sprog 
Jeg har set under CP/M. 

C0MAL-80 

MBASIC 

COBOL 

Kompas-Pascal 
POLY-PASCAL 
TINY-PASCAL 
C-Compi1 er 
MACRO ASSEMBLER 
TURBO-Pascal 


Arken 
Calk-Star 
Data-Star 
Dbase2 

Perfeet Writer 
Super-Calk 
Word-Star 

Programmerne under stregen er 
forskellige DATA behandlere hvilket 
vel også er en slags programmerings 
sprog. 

De forskellige Pascal kompilere er 
næsten ens, PolyPascal er nok den 
mest brugervenlige, Turbo er den 
hurtigste. 


CP/M er vel så småt ved at glide ud 
til fordel for PC'erne da alle de 
gamle CP/M versioner efterhånden 
kan fås i stærkt forbedrede udgaver 
der både kører hurtigere og ofte er 
blevet enormt brugervenlige. 

Trods disse fordele ved PC'ere kan 
os amatører vel stadig bruge CP/M 
udgaverne, hvis vi altså vil give 
afkald på Grafiken og en helt 
unødvendig hastighed som ikke for 
os er lig med penge. 

(En amatør er en der kan LIDE at 
beskæftige sig med en HOBBY, hvil¬ 
ket ikke behøver at betyde at hun/ 
han er dårligere til det end de 
'Professionel le 1 ) 





